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بسم أنه ارهن الركيم 


ر 
السلاج عليكم 


الخمذ لله ري القالمين والفلاة و التعلام عاق المجوت الأمين رخمة اللعالخين مخمد اين عيذ 
الله و على آله و صحبه و سلم تسلیما کثیرا. 


على الرغم من أن المكتبة العريية غنية جدا بعديد المصادر في شتى المواضيع لدرجة أن 
الطالب يضيع بين رفوف الكتب محاولا إيجاد الكتاب المناسب إلا أن الكتب التي تتناول موضوع 
الترحمة (١٥0ا†aاامcom‏ ها) معدومة تقريبا, و في محاولة لتدعيم المكتبة العربية نقدم لكم هذا 
الكتاب الذي يشرح بطريقة سهلة و مفهومة الخطوات الأساسية لكيفية برمجة مترجم 
(ateuاC0mpi)‏ خاص بك, لا يهم أن تكون مهمة هذا المترجم ترجمة أكواد لفة متقدمة إلى 
لغة الألة بل تمكن استعمال الكتاب لبرمجة برامج تخول الأكواد من لفة الى أخرك, و لفقل من 
أبرز الأمثلة البرامج المنتشرة التي تحول من اللغة ٥‏ إلى ا۸٥٤۴۸5‏ أو إلى 34۷۸ و غيرها. 


سنستهل كتابنا بمقدمة سريعة عن الترحمة و أصولها و من ثم عرض للأدوات اللازمة مع 
راط لها و ككة هار كد كلك طق إلى هال نعط [لمدف هه فرح الأذذات 
المستعملة في هذا الكتاب لنكمل بقية الكتاب في شرح كيفية برمجة مترجم خطوة بخطوة و 
نظا ا 


من الضروري جدا أن تحيط علما بأساسيات لفغة البرمجة K++‏ لأنها ما سنعتمد عليه في هذا 
الكتاب بالإضافة إلى معرفة و إن كانت سطحية بلفة التجميع أو ما تعرف بالأسمبلي. 


E A e O a E O O A E E مقدمة‎ 
f salan i Ran Ê (L'analyse lexicale) المحلل المعجمي‎ 
O ES (L'analyse syntaxique) المحلل النحوي‎ 
7 Sansa Ra aa (L'analyse sémantique) يونعملاl‎ لJلحملا‎ 
O (Génération de code ) دgكJl‎ دıيلوت‎ 
O O و متطلبات العمل‎ BI0N و‎ L٤×X 
22 Raa برمجة المترجم‎ 


المترحم... هل فكرت يوما في برمجة مترجم ما كمترجم السي أو الباسكال أو غيرهما من 
اللغات؟ هل تعتقد أن الأمر صعب؟ أجل هو ليس باليسير و أيضا ليس بالمستحيل, و سنحاول 


في هذا الكتاب بإذن الله أن نوضح خطوات برمجة مترحم صغير. 


1. مقدمهة 
لدينا برنامج مكتوب بلفة ما, إذا كانت هذه اللغة مفهومة من طرف الحاسوب فإانه يقوم بتنفيذ 
البرنامج مباشرة, أما إذا كانت لغة البرنامج غير مفهومة من طرف الحاسوب فيجب تحويل الكود 
المصدر (عu۲cامء‏ عt×عt)‏ إلى كود مفهوم من طرق الحاسوب, (عاطاعء عملمء), هذه العملية 


تسمى الترجمة, المترحم هو برنامج مكتوب بلغة ما يقوم بترجمة كود من لغة مصدر إلى لغة 
الآلة. 


PFrogramme en Frogramme en 
langage source langage cible 


Analyse Analyze Analyse trênêration 


iestion de 
la table des 
sym bales 


- مراحل ترجمة برنامج - 


:L’analyse lexicale (1 


الفرطة الى من الكلل, قوم الاجم ها انمكح الاعات و القن تسجى 
اها انطلاقا من سلسلة من الخروق, متلا, لإحظ هذا السطر من الكوذ المصضد:؛ 


for i := 1 to vmax do a := ati; 


نستخرج هذه السلسة من ال کہع‌)ها : 


EOE (mot cءا٤(ةزوجحم كلمة‎ 
1 (identificateUr) زرعe‎ 
= (affectation) دliw|‎ 
1 (entier) zuızص‎ 
t@ )صoاt‎ cا٤( كلمة محجوزة‎ 
vmax (identificate€Ur) کJرعمe‎ 
do )صoا‎ cا٤( كلمة محجوزة‎ 
a (identificateUr) زرعe‎ 


إiwد (affectation)‏ ج 
عرز (identificate€Ur)‏ 


0 (opérateur arith métique) ةيضlر‎ ةيlمګع‎ 
(identificat€Ur) عرز‎ 
; (séparat€Ur) Jصٺاف‎ 


مباشرة و بعد تحليل الكود نقوم ببناء جدول الرموز (كعامطاصإء كعك عاطها) وهو عبارة 
عن قائمة من مجموعة تركيبات تحمل خصائص كل 0)١‏ و يكون كالآتي: 


Numéro de Token Type de token Type de 
symbole variable 
1 for mot clé 
2 to mot clé 
2 do mot clé 
3 séparateur 


بهذه الطريقة يقوم المحلل المعجمي (عاةءا×عا اuمكراةan'ا)‏ بتحليل الكود المصدر و 
بناء جدول الرموز -إن صحت ترجمة المصطلحات - و إن كنت قد لاحظت, فان المحلل 
المعجمي لا يهتم بترتيب ال ك١ع‏ )ها و لذلك فإن السطر التالي صحيح تماما بالنسبة لل 
:analyseur lexical‏ 


for for for i1 := := 10 do for aa; 


هنا يأتي دور التحليل النحوي İو „analyse syntaxique‏ 


:L’analyse syntaxique (2 


في هذه المرحلة نتحقق أن ترتيب ال ١١ع‏ )ها موافق لتعريف اللغة التي نريد برمجة مترحم 
لها, نستطيع أن نقول أننا نتحقق من النحو الخاص باللفة و يكون هذا إنطلاقا من مجموعة من 
القواعد أو ما يسمى ء۲أة٣‏ ۳ه و, يقوم المحلل النحوي ببناء شجرة )a۲5١6(‏ باستخدام ال 
tke‏ التي يوفرها المحلل المعجمي: 


for i := 1 to vmax do a := ati; 


Inatructioiı 
airuction For 
1 | 
1 TE 
Cele: Û 
Cn) ت‎ 5 


د اة التخوة السك رة بعد التكلل التخوت : 


أما القواعد المحدد للنحو فإنها تكون معرفة على الشكل التالي: 
prog -> debut inst fin point‏ 
inst ->‏ 
ident affectaion expression‏ | 
ا 
expression -> ident‏ 
entier‏ | 


| reel | ... 


:L’analyse sémantique (3 


أثناء التحليل المعنوي (عuوا†١‏ "٣6ء‏ عكراة"ها) نتأكد مثلا أن القيمة التي سنسندها لأحد 
المتغيرات تكون من نفس نوع المتغير, إذ لا يجب إسناد قسمة حقيقية لمتغير صحيح و هكذا. 


:Génération de code (4 


نقوم هنا بإنتاج كود بلغة الآلة أو لغة التجميع و هذا مثال لكود بلغة قريبة من لغة الآلة: 


les étiquettes des variables 


le code du programme 


comparaison i >= vmax 
S1 VFaÎ1 allêf ên fFIÎRFoE 
calcul de a+i 


a := a+i 
ön 1incefémente 1 


et on continue la boucle 


r 


var_a A0000 
Var_i A0001 
var_vmax A0002 


mov var_i,1 

1LOOp 

mov AO, (var_i) 

jge A0, (var_vmax), finFor 
mov AO, (var_a) 

add A0, AO, (var_i) 

mov var_a, AO 

mov AO, (var_i) 

add A0, AO, 1 

mov var_i, 1 


jmp loop 
ELDEOE 


LEX .2‏ و BISON‏ و متطلبات العمل 


كانت تلك مقدمة سريعة جدا و مختصرة جدا عن مراحل الترجمة, ماذا بعد, قبل نحدد قواعد 
اللفة التي ستستخدمها و تبدا برمخت المخلل المقخمى و النخوى و المعتوي ستلقي نظزة 
على أداتين مهمتين و LEX ln‏ و .BISON‏ 


×۴ هي أداة تقوم بتوليد محلل معجمي (eاe×|caا (Analyseur‏ أو ما يسمJی‏ ڊ Scanner‏ 
مكتوب باللغة ,٣‏ يستعمل ×۴[ قوالب (١١۲عااةم)‏ لمطابقة السلاسل الحرفية الموجودة في 
الكود المصدر و تحويلها إلى ك١ع)ما‏ و من تم إرسالها إلى المحلل النحوي, ال ك٣ع)ها‏ تكون 
عبارة عن معرفات عددية تابتة, أي أن ال ٣۴۲‏ عندما يجد مثلا المتفير × فإنه يرسل 
للمجلل التخوت آل ٣6ا‏ الممتلة للمتغرات و لنكى 15٤١٣:‏ و أنها يرتل لةه اسم المتفر و 
يقوم بادخاله إلى جدول الرموز كع‌امطاصء كعك عاطها و تعیین خصائصه کنوعه و غیرها من 
الخفا كن 


۷ظ أو YA‏ يولد لنا شفرة باللغة ٤‏ لمحلل نحوي (ع2×i۹u† s۷‏ yseurاAna)‏ و یعرف أیضا 
بال 258۲م, يستعمل ١٥ء8‏ قواعد اللغة لتحليل ال ك١عkها‏ القادمة من ال ٣۴۲‏ عك و يبني 
ليها شجرة نحوية, تمثل هذه الصورة كيفية التعاون بين LEX J|‏ و :YACC‏ 


SOURCE 
lyyparse) 


bas. YaCC y tab .€ 


y.tab.h ¥ DaS.EXe 


bas.| lEX.yy .C | 


lyyex) 
com piled output 


إذا و حسب الشكل السابق الملف .25ط يحمل وصف لل ١5۴١م‏ أما الملف 35.1ط فيحمل 
وصف لل ۲٥"canء,‏ الملف ۸.طها., یولدہ ال ۷۲A٣٤٣‏ و يحوي تعریف ال ١۸٣ع)ها‏ وهذا تصريح عن 
أحد ال كمع)ه† في الملف ۸.طها.y:‏ 


#define IDENT 102 


بعد ذلك یولد لنا کل من L۴×‏ و ۲A٣٣‏ (سنستعمل 8150۸ و هو مشابه لل )۷۲A€٣€‏ le×>.y۷.cا‏ 
و ۷.5.٤‏ و هما على الترتيب المحلل المعجمي (8€۲١3۸ء5)‏ و المحلل النحوي (€۲١2۲م).‏ 


وباستعمال أحد مترجمات اللفة € نترحم كل من |6×.۷۷.١‏ و ۷.35.٤‏ لنحصل على البرنامج 
النهائي ع×5.6ة[ و هو المترحم الجديد... تهانينا. 


ماذا سنحتاج من أدوات لفعل ذلك؟ 
أولا قم بتحميل 3.0 ٤++‏ ۸80لا1 من هذا أحد هذه الروابط : 
http://www.4shared.com/file/227985692/6671fd89/TC30.html‏ 
http://www.mediafire.com/?iyjt4zoej2m‏ 
http://www.snapdrive.net/files/618263/CompilerLesson/TC30.zi‏ 


قم بتثبيته في القرص |:0 بحيث يكون مسار المجلد 1ط كالآتي: ,0:]۳٥۱81۸‏ طبعا أنت حر 
کی تسه فی آک مانو لك الح سكين على اسان أنه مقت قي الحضار الساف 
لأننا سنستعمل البرنامج ۲٥.٤×۴‏ )۲|811 ]:0 لترجمة أكواد °. 


L۴×X‏ و ,B10N‏ حملهما من أحد هذه الروابط: 
http://www.4shared.com/file/227982793/8d639f91/Lex Yacc.html‏ 
http://www.mediafire.com/?52ym5eyydom‏ 
http://www.snapdrive.net/files/618263/CompilerLesson/Lex Yacc.zi‏ 


قم بفك الضغط عن الملف صأ7.٥٤٤۲2_×ع1€‏ وانسخ المجلد ٣٤٤۷2_×عا1‏ في القرص |]:0, ليصبح 
لديك المجلد كعامصع×ع|عع0:|1ex_Y۷a‏ والذي سيكون مسرح الأحداث. 


انس محتويات كل من المجلد D:\Lex_Yacc\Biso"\bi¬‏ و aJlجlد D:\Lex_Yacc\Lex\bin‏ إلى 
المسار ٤C:|W1N00۷S‏ طبعا هذا إذا كانت الويندوز مثبتة في القرص ,٤٥:|‏ المهم أن تنسخه 
إلى المجلد W[N٥0W۷S‏ الخاص بالنظام, ÎخıرI‏ wiخة‏ llلnجlد D:\Lex_Yacc\Bison\share‏ 
بأكمله إلى القرص ٥:‏ ليصبح لديك المسار ٥:5۸3۲‏ في جهازك, هنا نكون قد ثبتنا الأدوات 
اللازمة للعمل, لنبدأ على بركة اللّه. 

قبل البدء في برمجة المترحم سنقوم ببرمجة برنامڄج صغ بlسwتخۃخl۾ LEX‏ و BISON‏ و TURBO‏ 


++ بحيث يقوم بقراءة ملف يحتوي على عمليات حسابية من عدة سطور, متلا =5+5 و 
=10*1002-20^100*3+3 و يقوم بحسابها. 


سنعمل على مستوى المجلد كعامصع×ع|اءعه۷_×ع0:|1, لنبدأً بكتابة المحلل المعجمي أو 
„scanner 9Î L'analyseur lexicale‏ 


سنقدم لل L۴×‏ وصفا معینا ليولد لنا هو كود ٤‏ لل ٣۴8۲‏ هعءء, كيف يكون ذلك الوصف؟ یکون من 
الشكل التالي: 


...تعريفات -إذا احتجناها- ... 
%% 

... قواعد ... 

%% 
... دوال فرعية -إذا احتجناها- ... 


الدوال الفرعية عبارة عن كود بلغة ,٤‏ أما التعريفات و القواعد فلها نحو خاص + بعض أكواد °. 
إفتح المفكرة واكتب الكود التالي: 


ا 

#include<stdlib. h> 

#include"D:\Lex_ Yacc\exemples\expy2.h" 
0 

aE 1 iI 

CIMLE I © 10-9 

entier 1EME EEO} 4# 


قمنا بكتابة التعريفات, لقد احتجنا إلى إضافة كود بلغة ٤و‏ لذلك كتبناه بين العلامتين >“ و 
[۷, سنحتاج إلى دالة من المكتبة 5.۸اكاء, اما استعمالنا للملف ۷.21۸م×ع فهو لانه الملف 
الذي سيحوي تعريفات ال ك١ع)ما‏ فيما بعد, لا تقلق فذلك الملف يولده 86150١‏ فيما بعد لذلك 
لا تعره اهتماما الآن, ذلك الجزء الأول من التعريفات, الجزء الثاني -3سطرور الأخيرة- قمنا فيه 
بالتصريح عن بعض القوالب التي سنستعملها لتصفية ال ٠١5‏ )ها من الكود المصدر, ماذا تعني؟ 
لدينا تلاث قوالب, blanc‏ و :entier 9 chiffre‏ 


کل الفراغات, فراغ أو آكثر blanc [ \E]+‏ | 
كل الأعداد من 0 إلى 9 ]0=9[ | chiffre‏ 
سلسلة من عدد واحد أو أكثر entier {ERLEEEE FE‏ 


افذااجدول اخروت التي تناو نها لوالب و مانا 


كل الأحرف باستثناء |١‏ 


سطر جدید \n‏ 
ضفر تسكة او أكتر من الفبازة السابقة لها x‏ 
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تنسخة واخدة أو أكثر من العبارة السابقة لها + 
نة واخدة أو لا شىء من العارة السارقة لها 2 
بداية اللسطر ٠‏ 
نهاية السطر 5 
a‏ و a|lb b‏ 
نسخة أو أكر من الفلهلة 5ة + (ab)‏ 
السلسلة ط#ة حرفا afb"‏ 
فئة من الأحرف, [2-ة] تعني كل الأحرف من ه إلى 7 ][ 


وکال كن فض الأقفة لأخظ هذا الجدول: 


التطابقات العبارة 
abc abc‏ 
abc* ab,abc,abcc,abcccC,...‏ 
abc+ abc,abcc,abcCcC,...‏ 
a(bc)+ abc,abcbc,abcbcbc,...‏ 
a(bc)? a,abc‏ 
[abc] a,b,c‏ 
آي حرف بين 4و 2 [a-z]‏ 
[a\-z] a,-,Z‏ 
[-az] -,a,Z‏ 
حرق أو أكثر(بما في ذلك الأعداد) [A-Za-z0-9]+‏ 
الفراغات \t\n]+‏ [ 
آي شيء باستثناء ۾ و ط [^ab]‏ 
[a^b] a,^,b‏ 
[a|b] a,|,b‏ 
a‏ و a|b b‏ 


ذا بض الكزد الذى كه قي القفكة اقا أكثر وخوخا و تكد كلها تمت قي اة 
هذا الكاب أضف هذا الكوة الى الكو السابق لنصبة: 


]% 
#include<stdlib.h< 
#include"D:\Lex_Yacc\exemples\expy2.h" 


{% 

blanc ll NEF 
chiffre 1029] 
entier {chiffre}+ 
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OLE) 
(OME 1 E | { 
yylval=atoi (yytext) ; 
Fe E UE (NOMBRE 
} 
eT EE UE (ELUS) 
a elê UE DR (MULE), 
Ny e E UE (MOND 
ا‎ EE MEA (DIWE ) f 
o EEE UE (UL S) ¢ 
TE FEE UE (EARE J 
3 return (PARD) ; 
لڪ‎ e UED (ETN) 
mm 0 


أضفا الحو الخاص بالقواعد و هوين العلامتن %% و 6% هناك 11 قاغدة مادا يقل 
ال 1٤×‏ ؟ بكل بساطة نلخص القواعد في : إذا وحدت ... إفعل .. 


مثلا القاعدة الأولى, إذا وحدت [”ةاط) إفعل (لا شيء), أي أن ال ٣86۲‏ سيفوت 
الفراغات الموجودة في الملف الذي سنقوم بترجحمته و حساب ما فيه. 


القاعدة الثانية, إذا وحدت إ۲ءاا١ع)‏ إقعل: 
yylval = atoi (yytext);‏ 
return (NOMBRE) ;‏ 


السطر الثاني ; return) N0M6R٤(‏ نعيد فيه ال ۸عkها‏ التي حصانا عليها وهي رقم صحيح 
حسب القالب المستخدم(۴۲ءنا١ه)‏ إلى المحلل النحوي أو 3۲56۲, مثلا إذا وجدنا في الملف 
الذي سنحسب ما بداخله العملية =5+5 فأن أول )ها نعيدها هي NOM8R٤‏ ولکن, 
سنحتاج إلى قيمة ال N0M8BR٤‏ الذي عثر عليه ال ۲عصصهءء ولنمررها إلى ال 6۲كاةم نقوم 
باسنادها إلى المتغير ات۷۷1۷ وهو عبارة عن همزة وصل بين ال "٣۴۲‏ ةعءء و ال اعكامم, ولفعل 
ذلك نحول القيمة الحرفية الموجودة في المتغير ا×عا۷ل الذي يحمل سلسلة الحروق المشكلة 
لآخر تطابق إلى عدد صحيح باستعمال الدالة أماة الموجودة داخل المكتبة 15.۸اكأك. 


القاعدة الثالنة, إذا وحدت + إفعل (أعد ال ١عkها‏ التالية: ۷5Sاا۴),‏ قاعدة سهلة وواضحة, إذ 
سنكتفي بالقول لل ١5۵6١هم‏ أننا وجدنا Sلاا۲‏ ولن نحتاج طبعا إلى قيمتها أو شيء من هذا, 
فقط نعيد ال ١ه‏ و نذهب إلى القاعدة التالية. 


القاعدة الإخيرة, إذا وحدت )١‏ (سطر جديد) إفعل (لا شيء). 
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أنهيانا الآن وصف ال €۲ محك, ماذا بعد؟ خزن الكود في lلمlwر D:\Lex_Yacc\exemples‏ 

باسم 2.1اp×ع,‏ وباستعمال الأمر .۱2× ۴L٤×‏ یولد L۴×‏ کود € لل ۴۲ 2عء, حتى لا نبقى في 
كل مرة نفتح نافذة الدوس و نكتب الأمر قم بفتح المفكرة و اكتب الأوامر التالية: 

FLEX exp|2.| 

Pause 


تم أحفظ الملف باسم 21ط.۴×_2ا۴ في المجلد sعامx×xemع\0:\1e×>_Yacc,‏ دویل كليك علی 
الملف الدفعي اةط.2_×عا؟ لتحصل على النتيجة التالية: 


e Cilwindowslsystem32lcmd.exe 


DE:xlLex_Yaccxexemp les ?FLER expld.l 


DE:xlLex_Yacc™exemp les ?pause 
Appuyez sur une touche pour cont inueF . . 


لا يوجد أخطاء, في حالة وجود أخطاء سيعرض لك ×1۴ رسالة بالأخطاء و مكان كل خطأً و 
وصفه, لقد قام ×1۴ للتو بتوليد الملف ٥.۴×.۷۷ا‏ في المسار كعامصmعx×ع|Yacc_×ع‏ ]:0 والذي 
يمثل كود scanner JJ C‏ أو .L‘analyseur lexicale‏ 


ل اه الك من الا اا ا لوا 
قبل أن نبدأً كتابة وصف ۲۸٥٤٥‏ سنحدد القواعد :)g ram n a¡٣e(‏ 


Input -> Input Line | £ 
Line -> FIN | Exp FIN 
Exp -> NOMBRE 

| Exp PLUS Exp 

| Exp MOIN Exp 

| Exp MULT Exp 

| Exp DIVS Exp 

| MOIN Exp 

| Exp PUIS Exp 

| PARG Exp PARD 


ما هذا ؟؟؟ 
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الرمز £ يعني فراغ أو لاشيء, الكلمات المكتوية بحروف كبيرة تمثل ال ٥١١‏ )ها التي سيعيدها 
الcannerء‏ , أما باقي الكلمات في رموز غير iliئıة .(symboles non-terminaux)‏ 
أحسن طريقة لفهم القواعد السابقة هي تتبع مثال, مثلا هل السلسلة =5+5*9 تحقق 
شروط ال ۳۳3١٥‏ هاو السابق؟ 
Input -> Input Line‏ 
Input‏ >- 
Exp FIN‏ >- 
Exp PLUS Exp FIN‏ >- 
Exp PLUS Exp MULT Exp FIN‏ >- 
NOMBRE PLUS NOMBRE MULT NOMBRE FIN‏ >- 
= 5*9 +5 <>- 
إذا وصلنا إلى العبارة =5+5*9 إنطلاقا من ألام٣1,‏ هذا سيعطيك فكرة مبدئية عن ماهية 
القواعد التي سنستخدمها لاحقا. 


تفوخ أقتح المفكرة و اكب الكود التالى: 


5{ 

#include<conio.h> 

#include<stdio.h> 

#include<stdlib.h> 

#include<math.h> 

IMELuUCS Yd: Lex VECCNOXEMOLSES EO LZ2 E 
5} 

Stoken NOMBRE PLUS MOIN MULT DIVS PUIS PARG PARD FIN 
SEE EUS MOIN 

LOE E__ MULT DIWS 

Sleft NEG 

SE LEME PULS 

SEEN E LAO 


بدأنا كتابة الوصف الذي سیولد منه ۲۸٤٥٤٣‏ ال 5۵۲٣هم,‏ أول ما بدأنا به هو كتابة تعاريف نحتاجها 
أثناء كتابة القواعد, هناك قسمين من التعاريف, قسم مكتوب باللغة € وهو بين العلامتين % 
و [%, واضح الكود المكتوب باللغة ,٤‏ إذا كنت تتساءل عن الملف 0٥.2ام×e‏ فهو نفسه الملف 
٤.e×.۷|ا‏ الذي يحمل كود ال 8۲٣۸هءء‏ السابق, فقط سنغیير اسمه فيما بعد. 

القسم الثاني من الكود هو وصف خاص, باستعمال الكلمة المحجوزة %0۸8١‏ قمنا بالتصريح 
عن ال كعم التي سیستعملھا کل مj scannerJl‏ و ,parser Jl‏ و :tokens 9 liyıJ‏ 
NOMBRE , PLUS, MOIN, MULT, DIVS, PUIS, PARG, PARD, FIN‏ . 

هناك أولوية أثناء إجراء عمليات الحساب, فالقسمة أقوى من الضرب الذي هو أقوى من الجمع 
و الطرح, وأقصد بكلمة أقوى أولوية الحساب, مثلا عند حساب 5+5*6 فإننا نحسب 5*6 ثم 
نضيف إلى النتيجة العدد 5, ولهذا أضفنا السطور : 
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أقل أولوية للجمع و الطرح معا, العمليات تجرى عل llلlwıر  “left PLUS MOIN‏ 
القسمة و الضرب أقوى, نبدأً باليسار “left MULT DIVS  بlwسحdl cliûİ‏ 

ال ا فى وا هة %left NEG‏ 

الرفع إلى قوة أقوى من ما سبقه, ولكن نبدأ باليمين %right PUIS‏ 


السطر الأخير ام٣1‏ اهاي نحدد فيه القاعدة التي نبدأً منها أثناء التحقق من ترتيب ال 
tokens‏ القادمة مj .scanner J|‏ 


الفرطة الناتة قى كاة القوافد اللارمة, تفر الكو السانى ضح 


#include<conio.h> 

#include<stdio.h> 

#include<stdlib.h> 

#include<math.h> 

#include "d:\lex_yacc\exemples\expl2.c" 

5} 

Stoken NOMBRE PLUS MOIN MULT DIVS PUIS PARG PARD FIN 


sleft PLUS  MOIN 

sSleft MULT DIVS 

Sleft NEG 

sright PUIS 

sSstart Input 

MOU E 
INSEE ne 
4 

Line :FIN 
ES FIN (OE (SENA, SLE 
r 

Exp  :NOMBRE ا‎ 
Exp PLUS Exp و وا ا‎ 
Exp MOIN Exp (S1 
Exp __ MUL Exp ا‎ 
Exp DIVS Exp SS OILS 
MOIN Exp OEE MEG {99 28| 
Exp PUIS Exp {$$=pow ($1, $3); } 
PARG Exp  PARD OSAP 
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كل ما فعلناه هو كتابة القواعد و إخبار ال ۲56۲م ماذا يفعل عند تحقق كل قاعدة, القاعدة 
الأولى هي ; | ٤اا‏ خuمnp!‏ : ,1nput‏ وهي نقطة البداية, ام٣1‏ ستعطي شيئين, إما فراغ أو 
,1put Line‏ سهلة وواضحة. 

القاعدة الثانية, ۵ذا, إما تعطینا ۴1۸ (وهي الحرف "=" كما هو معرق على مستوى وصف 
)L۴×‏ أو ,۴×p ۴N‏ وهنا نكتب نتيجة العملية الحسابية باستعمال ; ,prin†f)'=%d\7",$1(‏ مlذ|‏ 
يعني الرمز $1 ؟ 

أثناء التحقق يمكننا أن نعطي و نأخذ قيم الرموز و ال e١١‏ )ها التي نجدها في طريقنا, وهنا 
سنكتب على الشاشة قيمة م×۴ وهي معرفة ب $1, أما قيمة ۴1١‏ إذا أردنا إستعمالها فهي 
$2 وهکذا. 

في كل قاعدة هناك نصف أيمن و نصف أيسر, و لإسناد قيم أو قراءة قيم الرموز المكونة 
للقاعدة فإاننا نستعمل ×$: 


Exp -> Exp PLUS 
$$ $1 92 


طبعا استعمال قيم الرموز باستخدام ×$ أو $$ هو تابع للتحليل المعنوي( عكراة"ة'ا 
)sémantique‏ فالمحلل النحوي أو €ا٩2×i†" analyseur s۷‏ ا لا يهتم بالقیم. 


ننتقل إلى القاعدة الثالثة الخاصة ب م×۴, ×۴ تعطينا أحد ثمانية خيارات: 
° في حالة E×p -< NOMBRE‏ فالأمر بسيط, نعطي قيمة الرقم إلى ×۴ باستعمال 
$1=, و تسمى هذه الحركة الأخيرةب ع۹u†‏ ٣2٣6ء Actin‏ كما أذکر. 


. في حالة م×٤‏ 5SلLاP‏ مE»p‏ <- م×E٤‏ فالأمر بسيك أیضا, ×۴ التي عى يسار القاعدة 
تأخذ قيمة مجموع E»‏ التي على يمين القاعدة و نفعل هذا باستعمال $2+$1=$$ , 
وهكذا تفس الشيءَ بالنسبة لباقي القواعد المماثاة 


. في حالة مط×E MOINS‏ <- مp×٤‏ هناك شيء جديد, طبعا نقصد من هذه القاعدة 
اة النفى مفلا 112 ولكق فلك الاقف الست هف فسا فمالة الطرح فى لوا 
أولوية قصوى, متلا إذا وجدنا 5/6- فإننا نحسب 5- أولا, ولهذا نعطيها أولوية 6× 
باستعمال التعليمة ٤١ N.6%‏ ۲۴م, أما الباقي واضح وهو إعطاء القيمة م×۴- إلى م×٤‏ 
التي على اليسار باستعمال; $2 = $$ . 


. بالنسبة للحالة pم×٤ P015‏ م>E‏ <- م×۴ فنقصد بها الرفع إلى القوة(3*2=9) و 
سنحسبها باستعمال الدالة سهم الموجودة في المكتبة ۸.٣اة"‏ كما يلي 
.$$=pow($1, $3) ;‏ 
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إلى هنا ننهي قسم القواعد الخاصة بال ۲5€۲ةم, بقي لنا أن نصرح عن الدالة الرئيسية 0ة" 
وهذا في قسم الدوال الفرعية: 


#include<conio.h> 

#include<stdio.h> 

#include<stdlib.h> 

#include<math.h> 

#include "d:\lex_yacc\exemples\expl2.c" 

5} 

Stoken NOMBRE PLUS MOIN MULT DIVS PUIS PARG PARD FIN 


sleft PLUS MOIN 

sleft MULT DIVS 

Sleft NEG 

sright PUIS 

Sstart Input 

Input 
| Input Line 

Line :FIN 
|Exp FIN {printf ("=$%d\n", $1);} 

Exp  :NOMBRE {$$=$1;} 
Exp PLUS Exp {$$=$51+$3;} 
Exp MOIN Exp {$$=$1-$3;} 
Exp MULT Exp {$$=$1*$3;} 
Exp DIVS Exp {$$=$1/%53;} 
MOIN Exp %Sprec NEG {$$=-$2;} 
Exp PUIS Exp {5$$=pow ($1, $3); } 
PARG Exp PARD {$$5=52;} 


IME UYUCEEOE (CMAE 5S) 
1 

EARLE (VSS, SDF 

1 

int yywrap () { 

EEE 1L? 


} 
main () 


1 
ELESEL O7 
1f ( (yyin=fopen ("d:\\lex_ yacc\\exemples\\input .txt", "r") ) ==NULL) 


و 
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{ 

OE LM E (WARNOUE EE MOE EOE NA) 
GEECH OF 

return; 


} 
VVDerSe (J7 
e e ET 


} 


قمنا بتعريف أجسام الدالتين ۷۷۵۲۲0۲0 التي تستدعى من طرف ال ۲56۲م عند وقوع خطأً أو 
عدم تطابق ترتيب ال ك١ع)ه]‏ المرسلة من طرف ال ۴۲٣"ةءء‏ مع القواعد المحددة, الدالة 
التانية هي ()م۷۷۲3/ وتستدعى عند نفاذ المدخلات وفي حالتنا هذه عند نفاذ العمليات 
المراد حسابها. 
الدالة ()1۸ة", ماذا بها؟ 
أولا نقوم بفتح الملف ».امم -الذي سيحتوي على العمليات المراد حسابها- باستعمال 
()۸عمه] التي تعيد إلينا مؤشر للملف, نسند ذلك المؤشر إلى المتغير ١أ۷۷‏ و هو متغير معرف 
مسبقا من طرف ۲۸۴٤٥‏ و يمثل ملف المدخلات, و في حالت وجود خطأً أثناء فتح الملف 
input.txt‏ نعرض رسالة خطأً و نتوقف. 
بعد ذلك نستدعي الدالة ()2۲56م۷۷ والتي تمثل هنا ال١56۲١ةم‏ وتقوم بكل العمل الذي وصفناه 
سابقا. 
اللآن أحفظ ما كتبناه من وصف في المفكرة إلى lالمlلف‏ ¥.¥2صD:\Lex_Yacc\exemples\exp,‏ 
وبنفس الطريقة التي استعملنا بها ×٤ا‏ سنستعمل ,8150١N‏ عوضا عن كتابة أوامر في نافذة 
الدوس أنشئ ملف دفعي جديد باسم 38ط.8150۸N_2‏ داخل المجلد 
\اesاYacc\|ex>emp_>ع1]:‏ واکتب به ما یلي: 

BISON -d expy2.y 

Pause 

دويل كليك على الملف الدفعي الجديد و ستحصل على هذه النتيجة: 


a Cilwindowslsystem 3 2lcmd. exe 


D:*lLex_Yaccxexenples?BISON -û expy2 .y 

expy2.4:31: warning: previous rule lacks an ending `; 
D:*Lex_Yaccxexenplez ?paluse 

Appuyez sur une touche pour continlueF... „ 


أيضا سيولد 8150١‏ ملفين و هما ex>py2.ta5.٥‏ و ,ex>py2.tab.h‏ الملف exp۷2.tab.c‏ ھو 
الملف الذي به الدالة "اة" وبالتالي هو الملف الذي سنترجمه باستخدام .++° ,1URBO‏ 
أما الملف ۸.طه۷2.tرم×ع‏ فهو يحتوي على تعريفات ال ك١e)ه†‏ من أجل استعماله داخل 
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الاعnnصaعء‏ و إذا كنت تذكر ففي ملف وصف السكانر 2.1ام×٥€‏ هناك هذا اللسطر لاستعمال ملف 
تعریفات ال :tok‌ens‏ 

5{ 

#include<stdlib.h> 

#include"D:\Lex_Yacc\exemples\expy2.h" 

5} 


ولکن اسمه 5.۸ه.۷2م×ع و لیس ۷2.۸م×e‏ !! لیست مشكلة, سنغیر اسمه إلى ۷2.1مp×ع‏ 
وانتهى الأمر. 


نفس الشي» بالنسبة لملف وصف البارسر ۷2.۷×ع لدينا: 


#include<conio.h> 

#include<stdio.h> 

#include<stdlib.h> 

#include<math.h> 

AIRC LUCES El (LEX VACE \OXOMILSES NEXOL2 ©" 


أيضا ملف السكانر الناتج عن ×1۴ اسمه |6×.۷۷.٤٥‏ وليس 0٥.2ام×‏ !!! نفس الشيء, سنفير 
الأسماء فقط و لفعل هذا أضف ملف دفعي جديد باسم ةط. ۲٠3۳8‏ وليكن محتواه : 


ren lex.yy.c expl2.c 
ren expy2.tab.c expy2.c 
ren expy2.tab.h expy2.h 


دويل كليك على الملف الدفعي اةط. ۲٠٠8۳8‏ لتتغير أسماء الملفات ٤.۷۷.×ع|‏ و €×P¥2.†85.€‏ و 
ex>py2.tab.‏ إلى e×p|2.c‏ و ¥2.cمeX×P‏ و .۷2مeX×P‏ على الترتیب. 

إذا و في كل مرة نفير من وصف الملف 2.1ام×e‏ أو ۷2.۷م× فإننا نحذق ملفات الكود القديمة 
exp|2.c)‏ و expy2.c‏ و (exP¥2.h‏ و نعید تنفیذ FLEX_2.bat j JÛ‏ و BISON_2.bat‏ وg‏ 
.rename.bat‏ 

بعد حصولنا على کود سورس السکانر و البارسر نترجمهما باستعمال 4.5 ٣‏ ۸80ل1 وتحدید 
باستعمال البرنامج ٣|61N|۲٣.۴×۴٤‏ ]:0 وکي نتجنب فتح ۲٤‏ في كل فاإننا نفعل ذلك من 
سطر الأوامر, أنشئ ملف دفعي جديد بإسم أةط.#اأم "٣0ء‏ واكتب فيه هذا الأمر الذي يترحم 


الكود: 


D:\TC\BIN\TC.EXE D:\Lex_Yacc\exemples\expy2.c /b 
pause 


نفذ الملف اةط.عاامصهc0ء‏ و ستتم ترجمة الكود و ستحصل على ملف تنفيذي باسم 
E×۲2.E×٤‏ وهو البرنامج النهائي و لكي نرى نتيجة عملنا اضف ملف جديد -طبعا نحن لا زلنا 
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و سنبقی نعمل على مستوى المجلد ءsعام0:|]1ex>_Yacc]ex×emp-‏ باسم input.txt‏ لیحمل 
المدخلات و لنضف اليه بعض العمليات التي نريد حسابها, متلا: 


5+5= 
10*55= 
3+2^2= 
-5+)11*8(-16= 


نفذ الآن برنامجنا الجدید ۴×۶۲2.۴×۴ و ستحصل على هذه النتيجة: 


e D:lLex_Yacclexemples\EXPY 2. EXE 


لقد قام بحساب كل العمليات الموجودة في الملف ا×ا.لام”|أ, لا تعتقد أن هذا شيء لا أهمية 

له فهذه أول خطوة لبرمجة المترحم الخاص بنا, يجب أن تكون الرؤيا قد اتضحت الآن عن كيف 

سنعمل منذ الآن فصاعدا, لنكتب عملية خاطئة -أو بالأحرى لا تتوافق مع القواعد المحددة- 
لنرى النتيجة, غير الملف ا×ا.أامہا ليصبح: 

5+5= 

10*55= 

3+2^2= 

-5++)11*8(-16= 


أكيد لقد لاحظت أين الخطأ, بعد تنفیذ ۴×۶۲2.۴×۴ سنحصل على هذه النتيجة: 


o D:lLex_Yacclexemples\EXPY 2. EXE 


parte EPFPPFPOF 
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و تظهر نتيجة الخطأً في السطر الرابع, لاحقا سنرى كيف نعرض رسالة بالخطأً المحدد و رقم 
السطر الذي وقع فيه الخطأً إن شاء الله. 
لتحميل المجلد كعامص۳ع×ء الذي يحتوي على هذا المتال استخدم أحد هذه الروابط: 
http://www.4shared.com/file/2279831/70/36d8f872/exemples1.html‏ 
http://www. mediafire.com/?gqniqohtmyz‏ 


http://www.snapdrive.net/files/618263/CompilerLesson/exemples1.zi 
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3. برمجه المترحم 
من هنا يدا برمجة المترجخم آوك ما يجب تخديدة هو اللفة التي سنستخدمهار سس تخدم 


نفس النحو المستعمل لكتابة ال كمصط†iاoواA,‏ وكمتال عن لغتنا: 


algorithme alg 
entier resultat,a; 
debut 

ecrire "Entrer a = "; 
lire a; 

FESULEaE<=5}; 
a<-resultat*10 ; 
ecrire !,"a = ",a; 
lire a; 

fin. 


الرمز (!) نتفق أنه يعني سطر جديد, أي أكتب الجملة الموالية في سطر جديد, مبدئيا لغتنا 
الجديدة لا تحتوي على حلقات, فقط إسناد و كتابة و قراءة. 

سنسمي هذا المترحم 219م ٣٥ء‏ اختصارا ل d٬algorit hn mes‏ ateurاompi€,‏ ھذە اللغة تحتاج 
إلى eإاaصصماو‏ أو مجموعة القواعد التي تحددها و لنبدأً بهذا ال ١۲أ‏ 9۲۳۳ و سنفيره كلما 
أردنا إضافة قاعدة جديدة: 


prog -> ALGO IDENT declaration debut 
declaration -> £ | decl_type ident POINT_VER declaration 
decl_type -> DEC_ENTIER | DEC_REEL | DEC_CARA | DEC_CHAINE 
ident -> IDENT | IDENT VER ident 
debut -> DEBUT command_seq 
command_seq -> £ 
| command_seq FIN POINT 
| affect POINT_VER command_seq 
| READ read POINT_VER command_seq 
| WRITE write POINT_VER command_seq 
Affect -> IDENT AFFECT fexpr | IDENT AFFECT sexpr 
read -> IDENT | IDENT VER read 
write -> writed_expr | writed_expr VER write 
writed_expr -> NEW_LINE | fexpr | sexpr 
fexpr -> REEL 
|ENTIER 
|]IDENT 
|fexpr PLUS fexpr 
|fexpr MOIN fexpr 
[fexpr MULT fexpr 


ي ن 
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|fexpr DIVS fexpr 

|MOIN fexpr 

|fexpr PUIS fexpr 

|PARG fexpr PARD 
sexpr -> CHAINE | CARA 


تذکر أن الرمز (£) يعني اللاشيء, الرموز بالحروف الكبيرة هي ال 6۸١‏ 0۸] التي يرسلها البارسر 
او eاexicaا‏ yseurاana“‏ ا لذلك هي رموز ıuiliة)terminauxX .(symboles‏ 

عد إلى المجلد كعامصعx×ع\ععY۷a_>×عا|:0‏ واحذف منه الملفات التي استخدمناها في المتال 
السابق و لنبدأً على بركة اللّه, افتح المفكرة و نبدأً كتابة الكود الذي يمثل وصف السكانر: 


#include<stdlib.h> 
i LRCL TUCO SEEE ARE. MS 
#include<math.h> 

#include"d:\lex_yacc\exemples\compalg.h" 


م ا2ال a‏ 


سنحتاج كل من تلك المكاتب, الملف ۸.واaمصmه»ء‏ هو الذي سيولده 8150١۸‏ فيما بعد و الذي 
يحوي التصريح عن ال ك١ع)ما‏ اللازمة, المتغير ٤٣ا‏ يمثل السطر الحالي الذي نحن بصدد 
تحلیله و استخراج ال ۸ع‌)ها منه و سنزید من قيمتخ عند نهاية كل سطر و هذا لنعرف 
موقعنا إذا صادفنا خطأً ما, واضح. 

لنعرق الآن القوالب اللازمة لاستخراج ال 5١8)ها‏ من الكودسورس: 


Blanc [ \t]+ 

nbr 10-9 # 

entier {nbr} 

reel {entier}\. {nbr} 
1 CEE laz [| (O I-A 1) ® 
a [aA] 

O [OBI 

@& EC] 

dd ODI 

e [eE| 

u ع‎ [ 

gq [g6] 

h [h#H] 

1L [ALÎ 

اكل ل 

k [kK] 
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E FI HE HE HG EH E E GHEE 
n 
n 


أعتقد أن القوالب السابقة تشرح نفسها, مثلا 5۲" يمثل كل الأعداد من 1 إلى 9 مرة واحدة 
على الأقل أو أكثر, أي أنه مثلا 14522 تنتمي إلى ذلك القالب. 

القالب اأ" هو نفسه ۲ط۸, أما القالب ا٥۲6‏ فيختلف قليلا, إذ أنه عبارة عن ۸5۲.٣5۲‏ مثلا 
1 و غيرها من الأعداد الحقيقية التي تندرج تحت هذا القالب. 

القالب |٥٣‏ الذي يمثل المتغيرات -مثل × أو ۷_10- فتكون بدايته عبارة عن أحد الحروق 
التي تنتمي إلى المجال[z-ة]‏ أو [4-2] أو الحرفق (-) و هذا حسب [_3-724-2] , ثم تليه 
مجموعة أخرى من الحروف التي تكون ضمن [z-ه]‏ أو [4-2] أو [0-9] أو (_), النصف الثاني من 
المتغیر يمکن أن يكون أو لا يكون و حددنا هذا ب *([_0-928-7۸-2]). 

أما بقية القوالب من ه إلى 7z‏ فقد استعملناها فقط حتى تكون الحروف الكبيرة في لفتنا مثلها 
مثل الحروف الصغيرة, تماما كلغة باسكال التي لا تفرق بين الخروف الكبيرة و الصقيرة, مغلا 
القالب ه يمكن أن يكون ه أو ۸. 


لننتقل إلى الجزء الثاني و هو تعريف القواعد التي من الشكل إذا وجدت... إفعل... 


O BE UTD (CARA) 

E E@E UE (CRATE) f 
LEAL GOL IOLELLLTICIIA IMIS, EOELULER (AMEO) f 
LOLOL USS U UE FE UD (DEEL) 
{EFL J Ek UM (LN) 
LENIRIIEILLIIEIIES Eel UEA (DEC ENTTEE) fF 
{EJS E UE RM (DEC_EBBL) 7 
Cll E lA IE IEICE ETE} EOE UE (DEC CARA) f 
LEIA IAVILTIDI OY return (DEC_CHAINE); 
(LILIES return (READ) ; 
LEJACILEIILTIEIES return (WRITE); 


ي 
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mI" return (NEW_LINE); 
return (POINT) ; 

: Ee UE (BOINT VER) 7 
return (VER) ; 

7 IRE TS 

N return (AFFECT); 

" return (PARG) ; 

")" return (PARD) ; 

mm TeELUrD (PLUS) Î 

mN_M return (MOIN) ; 

NX TEL ULN (MULT? 

n/m TELCUrN(DIVS) 

MAM TECUEN(EULE 
{ident} return (IDENT) ; 
{reel} TelLULN (REEL); 
{entier} EOE MEN (ONT) 2 
{blanc} 


لن أشرحها لبساطتها, الآن أنهينا وصف السكانر, خزن الملف الجديد باسم |٥0۳١P3I9.|‏ طبعا و 
دائما داخل المجلد ءع‌امe×emاe×_۷accا|:0,‏ و أیضا أضف ملفا دفعیا جدیدا باسم 
FL EX_2. b2‏ و اکتب به الأمر : 

FLEX Icompalg.| 


دوبل كليك على اةط.۴×_2|ا۴ تحصل على الملف |€×.۷۷.٤٥‏ كنتيجة. 


لننتقل إلى بناء النصف الثاني من البرنامج وهو البارسر أو عu٩a×i†" sy‏ analyseurا,‏ افتح 
المفكرة و أكتب : 


#include<conio.h> 
#include<math.h> 
ACI EES WO \IS> vacECNexemoles \leouoale. GC 


AME CFEOES= O, 


ل 


كالمعتاد, سنحتاج إلى دوال من تلك المكاتب أما بالنسبة للملف ع.9ا2٧۳١0٥|‏ فهو نفسه 
الملف |۱۵×.۷۷.٥‏ -سنغیر تسمیته لاحقا-, سنستعمل المتغیر ۲۲0۲© لحساب عدد الأخطاء 
الموجودة في الملف الذي يحوي ال 0۲٣۳‏ 9اA,‏ بعد ذلك نضيف مزيدا من التعريفات: 


Stoken DEN 
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Stoken ENTIER 
Stoken REEL 
Stoken CHAINE 
Stoken CARA 


$token ALGO DEBUT FIN POINT POINT _VER VER 
EGER DEC ENTIER DEC REBL DEC CARA DEC CEAINE 
$token AFFECT READ WRITE REEL PARG PARD 
$token PLUS MOIN MULT DIVS PUIS NEW_LINE 


EFE EUS MOLN 
IefL MULT UIVS 
E1GAE PULLS 

EFE EE 

SEE E PEO 


2 2 02E E 


في التسع سطور الأولى قمنا بالتصريح عن ال ٠١١‏ )ها اللازمة, في الأريع سطور التالية عرفنا 
أولونة كل عملنة خساسة الف طز الأخر فة الفاعدة التي دل قطة الانطلاق, با الوضوخ. 


الخطوة التالية هي التصريح عن القواعد المتبعة في هذه اللغة: 


Pprog:ALGO IDENT declaration debut 
7 
declaration: 
|decl_type ident POINT VER declaration 


r 
decl_type:DEC_ENTIER 
| DEC_REEL 
| DEC_CARA 
| DEC_CHAINE 


7 
1ident : IDENT 
| IDENT WIR AES 


debut : DEBUT command_seq 
7 


command_sedqd: 


| command_seq FIN ONT 

| E SCE POINT_VER command_seq 

|READ read POINT_VER command_seq 
|WRITE write POINT_VER command_seq 


£ 


affect: IDENT AFFECT fexpr 


ي 
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| IDENT AFFECT sexpr 
7 

read: IDENT 

| IDENT VER read 


METE WL 1 LOC EOE 


MEE ex VER WEI Ee 
7 
writed_expr :NEW_LINE 
| fexpr 


| CEE 

1 

EEX PEE REEL 

ENTIER 

IDENT 

i SOE BUS EOE 


1 OE MOLD FE IE 
1 OE MOTE FOIE 


EOE DIVES FOOSE 
MOIN fFexpr Spree NEG 
EOE PULLS FOIE 
PARG fexpr PARD 


7 
SEXE CHATINE 
| CARA 


نحن نحقق تقدما سريعا هنا, الكود السابق هو نفسه ال "ai٤‏ "هاو الذي اتفقنا على 
استعماله سابقا إلا أن شكله تفير قليلا, لا تلمني لكن ألق اللوم على 8150۸١‏ لأنه هو من 
یرید هذا الشکل لل gram ma٣٤‏ . 


لم نستعمل ءعséman†i۹u Les actions‏ وهذا لأننا حاليا نحن بصدد إنجاز السكانر و البارسر 
فتط İو L“analyseur lexicale‏ و syntaxique‏ yseurاana‏ ا فقط, لکل أوانه. 


القطعة الباقية من الكود اللازم هي التصريح عن الدالة الرئيسية و غيرها في الشطر الثالث 
من ملف وصف البارسر, أضف هذا الكود إلى المفكرة: 


IME MYCEEEOE (EMA 5S) 


{ 


errors++; 
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gringî (WUELTEUE FSVMLAxXê ETE: liene SENAY, LIO) fF 

} 

int yywrap () {return 1; } 
main (imi aroe, CRE AFCO) 

{ 

CFSE 

1f ( (yyin=fopen ("d:\\lex_yacc\\exemples\\test.alg", "r") ) ==NULL) 
1 

ELMER (ECS ALG AOE Cound Nm) Fp 

CE CR (8 

1@lE UII 

} 

VVYDerSe (J7 

if ( EEEOGS) PEM (LOR 

getch(); 

E@ E EIA f 


} 


ما الجديد عن المتال السابق؟ 

عند وقوع خطأً ما يقوم البارسر باستدعاء الدالة ۷۷۵۲۲0۲0 وهنا نعرض نحن رسالة الخطأ, 
السطر الذي وقع فيه الخطأاً هو ذو الرقم ٠٣ا‏ وهذا المتفير معرفق في الملف ٥٤.9ا0۳۲3٥|‏ و قد 
صرحنا عليه في |.0۳۳3۱9|, و عند وقوع کل خطأً نزید من قيمة المتغیر 6۲۲0۲5. 

الدالة ۷W۷۲3P0‏ تبقى كما هي, أما الدالة 0١أة"‏ فنقوم فيها بفتح الملف واة.اءما الذي 
يحوي ال عhN۳ Art‏ الذي نريد ترجمته, وبعد تحليل الملف سنعرض الرسالة )0 إذا كانت 
قيمة المتغیر 8۲۲0۲۶ مساوية للصفر. 


الآن خزن الكود السابق في ملف باسم .9ا03 و أضف ملفا دفعيا جديدا باسم 
BSON_2.‏ و أكتب فيه هذا الأمر: 
BISON -d compalg.y‏ 


نفذ الملف اةط.8B150N_2‏ لتحصل على ملفین اتنین, ٥٤.5ه.‏ 2۱9م c٥۳‏ و b.۸هta.واcompa,‏ قبل 
أن نترجم الكود المولد من طرف ×۴ا و 8150١‏ سنغير أسماء الملفات |6×.۷۷.١‏ و 
g.tab.cاcompa‏ و g.tab.hاcompa‏ إلى g.cاcompa!‏ و g.cاcompa‏ و g.hاpaصcom‏ على الترتیب 
- لا تسأل لماذا, فقط تروق لي الأسماء الجديدة - وهذا باستعمال هذه الأوامر: 


ren lex.yy.c Ilcompalg.c 


ren compalg.tab.c compalg.c 
ren compalg.tab.h compalg.h 
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الأوامر السابقة هي أوامر 005 وعندما نريد تنفيذها لن نفتح موجه أوامر دوس و ننفذها فقط 
نضيف ملف دفعي باسم أ2ط.۳8ه٠۲۴‏ و نكتب فيه الأوامر السابقة, دوبل كليك عليه و انتھی 
الأمر. 


نفس الشيء بالنسبة لعملية ترجمة الكود النهائي, أضف ملف دفعي باسم اةط.عاأcomp‏ و 
اكتب فيه هذا الأمر: 
D:\TC\BIN\TC.EXE D:\Lex_Yacc\exemples\compalg.c /b‏ 
pause‏ 
لقد قمنا بترحمة کود €٤‏ باستعمال سطر الأوامر فأنا أكره فتح ٤++‏ ۸80ل۲1 و ترجمة الكود 
بتلك الطريقة, دوبل كليك على 2.عاأم"0» وانتهى الأمر. 


إذن, بعد تنفيذ الملف أةط.عاامصهء سنحصل على البرنامج النهائي و~g ,COMPALG. EXE‏ و 
أثتاء كثابة وضف البارسر قمتاً باستعمال الملف واة.اوها كمدخلات للمترخم عن طريق هذا 


الت 
a‏ 


Lf ((yyin=fopen ("d:\\lex_yacc\\exemples\\test.alg", "r") ) ==NULL) 
e 


ذلك و قبل تنفيذ المترحم, أنشي ملف باسم واه.اكع و اكتب فيه نص ال ع٣۳‏ ٣اه‏ واA‏ الذي 
نحن بصدد ترحمته, وهذا هو الکود: 


algorithme alg 
entier resultat,a; 
debut 

ecrire "Entrer a = "; 
lire a; 

resultat<-5; 
a<-resultat*10 ; 
ecrire !,"a = ",a; 
lire a; 

fin. 


بعد ذلك نفذ برنامج المترجحم ۴×٤‏ .6ا۲۸ K0M‏ حتى يتفحص المترجحم, هذه هي نتيجة التنفيذ: 


2 D:lLex_Yacclexemples\COMPALG. EXE 


لقد قام المترحم بتفحص الكود و وجد أنه مطابق للقواعد المحدد أثناء وصف البارسر و لذلك 
عرض رسالة (0۸), لنجرب کتابة ۲|٤۸۳‏ هوا۸ خاطئ, مثلا غير السطر الخامس ليصبح : 


algorithme alg 
entier resultat,a; 
debut 

ecrire "Entrer a = "; 
lire 3,; 

resultat<-5; 
a<-resultat*10 ; 
ecrire !,"a = ",a; 
lire a; 

fin. 


فاك فاضلة اضافقة و نها أن هذا لا طق مع قواعد اللفة الفي خدكتاها ساقا ستكون 
النتيجة: 


ox D:lLex_Yacclexemples\COMPALG. EXE 


Erreur :syntaxe eFFeEuUF: ligne Û 


لقد اكتشف الخطأ !!! والسطر الذي وقع فيه الخطأ !!!... عجيب (وكأننا نعتمد على الحظ هنا). 


من المؤكد أنه قد تكونت لديك فكرة واضحة جدا عن مبدİ Lanalyseur lexicale Jee‏ و 
.(Scanner & Parser) L'analyseur syntaxique‏ 
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ننتقل الآن إلى المرحلة التالية, ألا وهي برمجة عuوا†١ة٣éء‏ اuمكرامها‏ أو عملية التحليل 
المعنوي, نغير ال ۴٠٣۳٣أامواA‏ المراد ترحمته - محتوى الملف واه.أءع]- إلى : 


algorithme alg 
entier resultat,a; 
reel r; 

caractere cC; 
chaine s, r; 

debut 

ecrire "Entrer a = "; 
lire a; 

lire r; 

0 

5<="ehainé Ss"; 

cC o, 

e e 
resultat<-5; 
a<-resultat*10 ; 
ecrire !,"a = ",a; 
2 7 

2 08 

a SIO 

lire a; 

fin. 


أضقنا بعض التصضريحات و التعليمات, طعا لا مغتى لها قنحن فقط تجز و لستا تكتب قي برتامج 
ما رأيك هل يوجد أخطاء في باقي الكود؟ 


أجل هناك أخطاء معنوية (sعsémanti۹u ,)Des erreurs‏ متلا في السطر5 المتفیر ۲ معرف 
اغ اة ا فة الغ 5 وال وا اد نا لى ن 2 
,caractere‏ أيضا في السطر 16 و 17 لا يمكننا وضع قسمة حقيقية في متفغفير صحيح, وفي 
الط 18 فما اساد هة لمر ف آنا لر صح عه ون ا كن الى دان 
المتركم ا فطع الف شن دة الأعطام حت الملف واد ي كل التتاة 
COMPALG.EXE‏ و سيقول لك: لا يوجد أخطاء, هنا يأتي دور .L'analyseur sémantiqUe‏ 


هنا يجب علينا بناء sعامطصرء‏ كع عاطها ها أو جدول الرموز, سنخزن فيها كل المتغيرات و 
أنواعها, قيمها لن تهمنا, أضف ملف جديد باسم 5۲M8_7۸8.١1‏ داخل المجلد 
:|1ex_Yacc\exemples‏ و افتحه و لنبدأً بكتابة الكود اللازم. 
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هل تذكر المتفير ات۷ارلر من المتال الأول لكيفية استعمال ×۴ا و ۲۸٣٤٣‏ ؟ لقد قلنا عنه أنه 
حلقة وصل بین 1٤×‏ و ۲۸٥٤‏ إذ أن ×[ إذا وجد مثلا رقما صحيحا فإننا نستطيع تمرير قيمة 
ذلك المتفير للد ۲۸٤٥٤٣‏ مع ال 8١‏ )ها, نحن هنا سنحتاج إلى تمرير السلسلة الحرفية التي تمثل 
المتفير حتى نتمكن من تخزينها في قائمة المتفيرات و التعامل معها, حاليا ×1۴ و حسب 
الوصف الذي كتبناه و تحديدا في هذا السطر : 


{ident } return (IDENT); 


لا يمرر لل ۲A٣٣‏ إلا ال «ع)ها التي تمتثل المتفغفير و هي ۴N‏ 10, سنمرر المتغير نفسه عن 
طريق المتغير المحجوز اة۷اإل و لكن نوعه |٣‏ وليس []13۲ء ! لا يهم بامكاننا التحكم فقي 


نوعه. 


لن نغير نوع اة۷ارر من |١‏ إلى 1۵۲ء أو غيره فنحن سنمرر لل ۷۲۸٤٤‏ عدة أنواع, الحل هو في 
استخدام "10١‏ لا, أكيد أنت تعرفها, و إذا لم تكن تعرفها فهي شبيهة بال ا٣ء‏ ولكن الفرق 
يكمن في أن مكونات ال 1۸10١‏ تشغل نفس المساحة من الذاكرة, مثلا لاحظ هذه ال 10١‏ : 


typedef union { 
char Tstr[128]; 
int TINE, 
float Tfloat; 

} new_type; 
new_type tL; 


إذا قمنا باسناد قيمة ل ۲اكآ.ا ثم بعد ذلك أسندنا قيمة ل ٤‏ ۲1.† فإن قيمة ۲٤5١‏ .† ستضيع لأن 
المتغفيرات الثلاث يتشاركون في الذاكرة المحجوزة لهم وهي الذاكرة اللازمة لتخزين أكبر متغير 
و هنا هي مساوية ل 128بايت. 
كيف نجعل اة۷اإل ينتمي إلى ذلك النوع؟ افتح الملف 9.۷ا0۳۳3» و أضف إليه هذا المقطع في 
المكان المبين: 
{% 
#include<conio.h>‏ 


#include<math.h> 
#include "d:\lex_yacc\exemples\lcompalg.c" 


5} 

Sunion { 

CMA TSE LAZO IP 
E A ONE Û 


TIO TTI? 
} 
Stoken IDENT 
e 


طبعا الجزء المضلل هو الجديد في الكود, أغلق الملف و أحفظه طبعا. 


32 


ويهذا نكون قد غيرنا نوع اة۷ارل إلى النوع الذي نحتاجه, بقي لنا أن نمرر اسم المتفير إلى 
۲A٣‏ کلما وجدناہ وھذا علی مستوی الملف |.واaمصہہء!ا:‏ 


E 
e return (PUIS); 
{ident} { 
SE EEO (YY Ie N SEE, VEE SE) 
Be E HER (IDENT 
} 
{reel} return (REEL); 
ua 


إذن و قبل أن نعید 1۴۸۲ علی شکل ١۴)هt‏ إلى ۲۸٤٥٤٥‏ قمنا بتمرير قيمة المتغیر إلى ۷۸٤٤٣‏ 
و هذا بنسخها في ١اكءآ.اة۷اإل,‏ طبعا قلنا سابقا أن قيمة كل تطابق نجدها في المتفي 
المحجوز ا×عارر, أحفظ و أغلق ا.9١۳P3١۳١٠|‏ ولننتقل إلى الخطوة الموالية. 


سنبدأً بمعالجة الخطأاً المعنوي الأول و هو تكرار التصريح عن المتفيرات كما حدث مع المتفير ۲ 
في المثال السابق, افتح الملف 59۲M8_7۸8.۳١‏ و لنبدأً باضافة هذا الكود: 
ime lucle< El CL AO, a>‏ 


#include<stdio.h> 
IACI UCOSEEEAAE Bz 


typedef struct sym_node_ 
{ 

char name [56]; 

struct sym_node *next; 
}sym_node; 


Ssym_node *sym_table=NULL; 


عرفنا التركيبة عمله٣_"/ء‏ المتكونة من اسم المتغير و مؤشر لتركيبة من نفس النوع, و هنا 
أردنا إنشاء قائمة ديناميكية من المتغيرات, حاليا يهمنا فقط اسم المتغير, بعد ذلك صرحنا عن 
عاbةt_صرء‏ وهي القائمة التي تمتل جدول المتغيرات هنا و هي مؤشر لتركيبة من نوع 
مdم_”رء,‏ طبعا هذا من أساسيات البرمجة بلفغة € ولو كنت تجهل ماذا يعني ذلك الكود لما 
گنت تقرا في :هذا الكتاب: 


لنكمل, سنضيف دالتين, الأولى ١/ء_الام‏ والتي تثبت متغير جديد في القائمة, أما الثانية 
6 وهن اهمها تتح آنها سيد اما مؤش للتركفة التي تحوى المتقير الفجدد 
على شكل بارامتر أو ستعيد ال۸ إذا كان المتفير غير مثبت من قبل: 
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Ssym_node *put_sym (char *sym_name) 

1 

Sym_node *ptr; 

ptr= (sym_node*)malloc (sizeof (sym_node)); 
strcpy (ptr->name, sym_name) ; 

ptr->next= (sym_node*) sym_ table; 
sym_table=ptr; 

TLELUTIT POEL, 


sym_node *get_sym (char *sym_name) 
1 
SVM MM OGeE OIE EB, 
for (ptr=sym_table;ptr!=NULL;ptr= (sym_node*)ptr->next) 
TE (SEFO O (PEE mame, SVM Mame) (EEEUEN DEE; 
He E HER NOU 
} 


کود واضح, کیف نستعمله؟ أغلق و أحفظ تفيرات الملف 5۲™18_۲۸8.۳ ولنعد إلى ملف وصف 
البارسر 9.۷ا0۳۳3, افتحه ولنبدأً بإاضافة بعض الأكواد: 


5{ 
#include<conio.h> 
#include<math.h> 
#include "d:\lex_yacc\exemples\lcompalg.c" 
1EME WEE LEK WEACECE NEXSMOLES \ SME ANE I 
int errors=0; 
void setup_sym (char* sym_name) 
1 
SVmMROdeE SVM; 
sSym=Gget_sSsyM(SyMmM_name) j 
Lf (sym==NULL) put_sym (sym_name) ; 


else 

{ 

CBEST 

PEIMEL (BE ECEUES <S CSE Oc Gere 3S OME 


SE mL Sm mame Ame) | 


} 


int sym_check (char* sym_name) 
1 
1f (get_sym (sym_name) ==NULL) 
1 


EREEOE SEE F 
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Paint (WBErOEUE: $SS ESL inconnu 3 lieme SC. NAN, SW MAME, LAME) ; 
TEE HER O; 


} 


EEE MEM Lp 


} 
5} 
a 


بسيطة, الدالة 5۷۳_ما56 تقوم بتثبيت متغير داخل جدول المتفيرات و هذا باستعمال الدوال 
المعرفة داخل الملف es|S۲YM8_۲۸8.4اe»_yacc\exempا|:d,‏ قبل أن نضیف متغیرا جدیدا 
يجب أن نتأكد من أنه لم يضاف من قبل بواسطة الدالة "٣۷ء_اعو,‏ إذا أعادة الدالة ٣۷ك_امو‏ 
قيمة غير اال فإننا نعرض رسالة خطأً تفيد أن المتفير معرف من قبل و في أي سطر وقع 
الخطأ, المتفير ۴ا عرفناه من قبل داخل الملف |.واةم۳هء| الذي يحمل وصف السكانر و 
بالتالي هو معرف في الملف 9.cا2م١٠٥»|‏ المولد من طرف ×1۴, أما إذا أعادت الدالة ۷۳ك_اعو 
القيمة اال فإننا نثبت المتفير الجديد والسلام. 


أما الدالة )>عمطع_صرء فنستدعيها لنتأكد أن المتفير المعطى لها على شكل بارامتر مثبت 
مسبقا قي قائمة المتغيرات, و هذا لتجختب استعمال متقيرات غير مصرح بها من قبل, إذا لم 
يكن المتغير مثبتا من قبل فإننا نغعرض رسالة خطأ. 

الآأن سترك: أن نسشتدذغى الذوالم تستدفيها كلما وجدنا متغيرا أنتاء تخلنل الكوذر الاخظ هذه 
الإضافات على الملف 219.۷مc0۳:‏ 


PERA 
%Stoken SE IDENT 
eS 


حددنا نوع القيمة التي ستأتي مع ال e١‏ )ها الخاص بالمتغيرات ۸1 ,12D٤‏ وهي ١ء١,‏ أي أنه × 
الموافقة لل 0۸8١‏ عبارة عن سلسلة حرفية, لنواصل: 


eT 
declaration: 
|decl_type ident POINT_VER declaration 


r 


8 

ident : IDENT SEED _ SMM (SL) P1 
| IDENT VER ident {SEES SVM (SLI 

ET 


كما ترون فان القاعدة ... <- ١‏ 0اأةاةاءعd‏ هي التي نحدد بها شكل التصريح عن المتغيرات, 
ولدينا ٤٣هل‏ تعطينا إما متفير أو متفير متبوع بفاصلة للتصريح عن المتفغفير, هناك يجب أن 
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تستدعي الدالة ()۷۳ك_م۷ااعء التي تقوم بتثبيت المتغير في جدول المتغيرات و في حالة 
تکرار التصریح عن نفس المتغیر ستعرض خطا, إسم المتغیر القادم من ×L۴ا‏ سیيكون محفوظ 
في ۲كا .اة۷اإل بالنسبة لل ×۴ا و في $1 بالنسبة لل .BISON‏ 


يبقى الآن التحقق من المتفيرات قبل إسناد قيم لها أو | قمالیا خی اذا و فی کل قاغدة 
نجد فيها ال ٠)۵١‏ الخاصة بالمتغير )10E۸1(‏ نقوم باستدعاء الدالة ()۸٩۸8_"لء‏ للتحقق من 
المتفير, لاحظ أين يتم هذا: 

sans 


affect :IDENT AFFECT fexpr {sym_check ($1); } 
| IDENT AFFECT sexpr {sym_check ($1); } 


read: IDENT Svan Check (OL) E 
| IDENT VER read 1EM Check (OL) 21 


fexpr : REEL 

ENTIER 

IDENT Sm ECEMeck (SL) 21 
fexprE PLUS fexprE 


fexpr MOIN fexpr 
fexpr MULT fexprf 


fexpr DIVS fexpr 
MOIN fexpr %Sprec NEG 
fexpr PUIS fexpf 
PARG fexpr PARD 


. 
r 


TT 


الأمر واضح, أضفنا des actions sémantiques‏ نستدعي خلالما الدالة sym_check‏ بإاعطانما 
اسم المتغیر على شکل بارامتر. 


خزن محتوى الملف 9.۷ا0۳۳P3»‏ لنرى نتيجة عملنا, احذف الملفات القديمة ›»0۳P319.٤(‏ و 
g.hاcompa‏ و c.واmpaدc!ا)‏ و قم بتوليد كود المترجم الجديد و هذا بتشغيل الملفات الدفعية 
BISON_2.bat‏ تم ۴LEX_2.bat‏ تم rename.bat‏ تم e.batاpiصcom‏ لنتحصل علی البرنامج 
C0MPAL6 . EXE‏ النهائي, سنسمي هذه العملية بعملية توليد المترحم. 
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شغل. الفتخم 60١16۸6.‏ يال و رقف الأخطا الموخة غلن ‏ مستوى الماف 
واه. اعا و هذه صورة لراسلة الأخطاء: 


a DilLex_Yacclexemples\lCOMPALG. EXE 


Erreur! F est deja definie : ligne Û. 
Erreur: x est inconnu : ligne 17. 


أجل, لقد اكتشف الخطأين الواردين في ال ع۳٣‏ هوا المتعلقين بتكرار التصريح عن 
لمتغيرات و استعمال متغفيرات لم يتم التصريح عنها من قبل 


بقي لنا أن نكشف عن بقية الأخطاء وهي إسناد قيمة حقيقية لمتغير صحيح أو استاه 
سلسلة حرفية لمتغير من نوع ۸3۲, أكيد هناك المزيد من الأخطاء المعنوية و لكن سنكتفى 
فقط بما سبق ذكره. 


نفا ان توغ المكترات نها من الان ففافغا قافا مكدر هن فة خدذول الفق ر ات اقح الجاف 
YM8_"۸.۳۸‏ وغير التركيبة التي تمثل المتفير إلى: 


#include<stdlib.h> 
#include<stdio.h> 
#inclu 

#defin 

COA _FIOAE 
#define _str 
#define _chr 4 
typedef struct Sym_nodê_ 
{ 


char name [56]; 


de<string.h> 


O E E 


mE EPO, 
struct sym_node *next; 
}sym_node; 


sas 


حددنا أربع ثوابت _ا”| و _اهه‌ا؟ و _٣اء‏ و _اch‏ تمثل كل من النوع الصحيح و الحقيقي و 
سلاسل الحروف و الحروف الوحيدة على التوالي, كما قمنا بإضافة حقل آخر للتركيبة التي 
تحمل معلومات المتغير و هو عم] و الذي يمتل نوع المتغير. 
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سنفير أيضا في الدالة 5۷۳_أالام التي تثبت المتغفير في الجدول لتصبح: 

n 
sym_node *put_sym (char *sym_namel, int sym_type) 
{ 

sym_node *ptr; 

ptr= (sym_node*)malloc (sizeof (sym_node) ); 
strcpy (ptr->name, sym_name) ; 

PIE RS EOE > SVE E MES 

ptr->next= (sym_node*) sym_table; 

sym_table=ptr; 

LTELUED PEE; 

} 

es 


واضح ما قمنا به من تغييرات, سنخزن نوع المتفير إضافة إلى اسمه من الآن فصاعدا, سنضيف 
أيضا دالة جديدة تعيد لنا نوع المتفير المحدد و هي: 


int get_sym_type (char *sym_name) 
1 
SVmMER OE EBE E, 
for (ptr=sym_table;ptr!=NULL;ptr= (sym_node*)ptr->next) 
NE (SEF EMP (PEG mame, Sym mame) ) CEEUEDN PEG > EVO, 
EEE OF 


} 


خزن و أغلق الملف 5۲M8_7۸8.١‏ و لننتقل إلى الملف 9.۷اةمص0.. 


بما أننا غيرنا في الدالة "/ء_الام الموجودة في الملف 5۲۷8_۲۸8.١‏ إذ أضفنا إليها نوع 
المتفير فإنه يجب التفيير في الدالة ٣۷۳ك_مuاعء‏ الموجودة في ۲319.۷ "0۳ لتصبح: 


PR 
vOid setup_sym (char* sym_name, int type) 
{ 
sym_node *sym; 
Ssym=get_sym (sym_name) ; 
1f (sym==NULL) put_sym (sym_name, type) ; 
else 
{errorstt;printf ("Erreur: %s est deja definie : ligne 
$Sd.\n", sym_name, line); } 
} 
ETT 
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عند التصريح عن متفير جديد يجب أن نخزن نوعه إضافة إلى اسمه حتى نتمكن لاحقا من 
التحقق من توافق الانواع اتنا إحراء عملیات الإسناد, سنضيف متغير حديد ٥۷€أ_ ٤1۲٣۲۴١‏ نخزن 
فيه مؤقتا نوع اخر تصريح عن المتغيرات: 

as 


int errors=0; 
IME CUEFeNE EVP, 


eT 
:5عاUuم_S۷٣ ولنغير في كل الإستدعاءات للدالة‎ 
ET 
declaration: 
|decl_type ident POINT_VER declaration 

f4 
1dent : IDENT {setup_sym ($1, current_type); } 

| IDENT VER ident {setup_sym ($1, current_type); } 
sas 


إذا أصبحا نخزن نوع المتفير مع اسمه, لكن يجب علينا تحديث قيمة عمpر†_†e٣uء‏ في كل 
مرة يتم التصريح عن نوع جديد, هذا يتم على مستوى هذه القاعدة: 


aT 
decl_type:DEC_ENTIER {CUE LEVIS = TMP J 
| DEC_REEL {current_type = _float;} 
| DEC_CARA CUEEERE EVES > CENE) 
| DEC_CHAINE {Current_type = _str;} 
PSE 


بعد هذا نستطيع التأكد من الأنواع أثناء القيام بالإسناد و هذا يتم على مستوى هذه القاعدة 
التى تخدد التجو الخاض بالإستاذ: 


affect :IDENT AFFECT fexpr 
| IDENT AFFECT sexpr 


fexpFE :REEL 
| ENTIER 
| IDENT 
|. fexpr PLUS fexpr 


| fexpr MOIN fexpr 
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| Eexpr MULT fexpr 


| fexpr DIVS fexpr 
|MOIN fexpr $%Sprec NEG 
| fexpr PUIS fexpr 
|PARG fexpr PARD 


4 
sexpr :CHAINE 
| CARA 


. 
r 


نحن لم نغير أي شيء في الكود السابق, كيف نتحقق؟ 
لناخذ متلا هذه القاعدة: 


affect : IDENT AFFECT fexpr 


أثناء سناد ۴×p۲‏ إلى 195٤۸۲‏ یجب التحقق من أن نوع ۴٥×p۲‏ متوافق مع نوع 10٤ N۲‏ وإلا 
نعرض رسالة خطأ, 10۴۸١‏ هو متفير و لذلك نستطيع الحصول على نوعه من جدول المتغيرات 
باستعمال الدالة ممرا_”رء_اعو, أما بالنسبة إلى نوع ۴8×۲ فيجب علينا الحصول عليه من 
القاعدة التالية: 
fexpr : REEL‏ 
ENTIER‏ | 
IDENT‏ | 


في الحالة الأولى, أي عند امع <- ۲م×ع۴ نرجع النوع _اهها؟ إلى ام×عf,‏ في الحالة الثانية 
نرحع _ا"٢|‏ إلى ١م×ع۴‏ و في الحالة التالثة نرجع إلى ۲م×۴6 نفس نوع المتغير المرفق مع 
آ1[ و هكذا نكمل مع بقية القواعد.. ويما أن ۴۴×١‏ قيمة النوع إذا نوعها يجب أن يكون ١أ‏ 
و كذلك نفس الشيء» بالنسبة ل ١م×عء5‏ و نحدد ذلك بهذه الإضافة إلى الكود: 


TT 
Sunion { 
char Tstr[128]; 
TRE TIDE, 
FLOEE ` TEFLOaL? 
} 


SE VO COME fexpr 


EVO OME sexpr 
Stoken <Tstr> L1IDENT 
e 
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إذا أول ما نفعله الآن هو تحديد نوع ۴6×۲ و ۲م×عء وهذا بإضافة هذا الكود المفهوم جدا إلى 


کل هن گواغد ھا" 
ET‏ 
writed_expr :NEW_LINE‏ 
fexpr SS MC AN GY‏ | 
sexpr LS CES OT‏ | 
fexpr : REEL 1 GO= Floalg |‏ 
ENTIER {1$$=_int;}‏ | 
IDENT {‏ | 
1i (EWM _CACOCE (9L) )‏ 
SS — SEE SVM EVE (O),‏ 
} 
|fexpr PLUS fexpr §‏ 
LIE(($1 == _int) && ($3 = _int))‏ 
S9 = ME,‏ 
else‏ 
SS = flO;‏ 
} 
fexpr MOIN fexpr §‏ | 
If(($51 = _int) && ($3 == _inE))‏ 
= 0 
else‏ 
SS = fFlIO@E;‏ 
} 
Fexpr MULT fexpr (‏ | 
LIE(($1 == _int) && ($3 = _int))‏ 
E‏ کس 9 
else‏ 
OEE‏ ك SS‏ 
} 
|fexpr DIVS fexpr 0 = _Floatg‏ 
|MOIN fexpr $%prec NEG {5$=$52; }‏ 
fexpr PUIS fexpr {1$$=51;}‏ | 
|PARG fexpr PARD 1$$=$2;}‏ 
sexpr :CHAINE {$$=_str;}‏ 
CARA 69 CMI‏ | 
lek‏ 
في القاعدة R٤٤‏ <- pr×عf‏ أعدن القيمة _٤۵٥!ا؟‏ إلى ۲م×۴ باستخدام الكود : 
float;‏ =$$ 
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في القاعدة 1٤/۲‏ <- ۲مp×ع؟‏ أعدا نفس نوع المتفير 12٤١1‏ بعد التأطد من أنه مثبت 


مسبقا في جدول المتفغفيرات إلى ۲م×ع؟: 
if (sym_check (51) )‏ 
get_sym_type ($1);‏ = $$ 


في القاعدة ۲م×عf fex>pr P0s‏ <- ex×prعf‏ فإننا نعید النوع t٣آ_‏ إذا کان کل من ۲م×عf‏ اللذان 
على اليمين من النوع :_int‏ 


Iif(($1 == _int) && ($3 == _int)) 
$$ = _int; 

else 
$$ = _float; 


وهكذا نكمل باقي القواعد, الآن استطعنا الحصول على كل من gai‏ !صfexp‏ 9و sexpr‏ 
لاستخدامهما في القاعدة المسؤولة عن تصريح المتغيرات, لنفعل ذلك: 


TT 
affect: IDENT AFFECT fexpr { 
1i (OM CACC (SL) 
1 
mE SYM EVE — Gel SVM VOC (SL), 
Lf ((sym_type== int) && ($3== float) ) 
1 
DELALI (VUETEEUE SF MOOS LOLS Cê EONVerLEeE (Teel 
a entier) : ligne %d.\n", line); 
CEEOL ST 
} 
else if ((sym_type==_ str) && ($53== float)) 
{ 
printf ("Erreur: imposible de converter (reel 
a chaine) : ligne %d.\n", line); 
CEOS 
} 
else if ((sym_type==_ chr) && ($3== float)) 
1 
BEIM EE (UEBEC DUE IMPOSE CE EORMCEFECE ESE 
a caractere) : ligne $%d.\n", line); 
CEOS 
} 
else if ((sym_type==_ chr) && ($3== str) ) 
{ 
printf ("Erreur: imposible de converter 
(CEMALE @A CArACECEEE) £ licence SC. NA, LIO) ¢ 
CLES SH) 
} 


ي 
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} 
} 
IDENT AFFECT sexpr { 
1i (EWM CAeECE ($1) 
1 


mE SEE SEES VME 
Lf ((sym_type== chr) && (53==_ str)) 

{ 

printf ("Erreur: imposible de converter 
(EMAL & CArACEOEEE) £ licome Sle A, LIME) 7 


E OS 

} 

else if ((sym_type== int) && ($3== str)) 

1 

OE LALE (VEFEOEUE 3 MOOS LOLS Cê CORNET EEE 

(EeMaiinme a EMLAeEE) £ licome SE. Ay LAME) 

CEE OS 

} 
else if ((sym_type==_ float) && ($3==_ str)) 
1 


printf ("Erreur: imposible de converter 


(chaine a reel) : ligne %d.\n", line); 
EEEOCOHEF 
} 
} 
} 
Te 


مثلا, في القاعدة affect -< DENT AFFECT fexpr‏ تحققنا أولا من وجود المتفیر 1D٤۸×1‏ 
باستخدام e))$1ءعsym_ch),‏ إذا کان موجودا نصرح عن متغیر جدید باسم 5۷۳_۷٥8‏ و نخزن 
فيه نوع المتغير 12٤۸1‏ باستخدام الدالة ٥م۷"_†۷ك_اعو‏ و بعد ذلك نبد عميلية التحقق من 
توافق نوع 12٤ N‏ و fexpr,و‏ کمتJl‏ || _int ga IDENT عai jl‏ و ilê _float ga fexpr gai‏ 
نعرض رسالة خطأً تقول (لا يمكن التحويل من حقيقي إلى صحيح) و هكذا البقية. 
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أغد الان تود الشرخم كما فلفف ساظا .و فد ترتامح اشر جو لذن €0%9A L6 .E×E‏ 
لتحصل على هذه النتيجة: 


ox D:lLex Yacclexemples\COMPALG. EXE 


= F est deja definie : ligne 5. 

:imposible de converter <chaine a caractere? : ligne l2. 
:imposihle de converter <chaine a caractere? : ligne 13. 
:imposible de converter «reel a entier? : ligne 1F. 


:imposible de converter ¢rFeel a entier? : ligne 18. 
5 x est inconnu 5 ligne 17. 


لقد تمكننا الآن من الكشف عن بقية الأخطاء المعنوية و هذا يكفي الآن بالنسبة لمرحلة 
التحليل المعنوي أو ع۹uا†ا٣aصéء‏ مysاanaا,‏ المرحلة التالية هي تولید |لJكود‏ ) Génération du‏ 
.(code‏ 
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توليد الكود, هي عملية صعبة نوعا ما مقارنة مع ما سبقها, سنحاول هنا أن نولد كود 
اeuاssembه‏ فقط وهو الأقرب إلى لغة الآلة و أيضا سنعتمد طريقة بسيطة في توليد الكود و 
لن يكون هناك وہ )ا (۸5عا مل nهtiا6d)‏ لأننا لن نستورد أي دوال من أي مكاتب. 


سنتعامل مع ال اط 16 eur‌اAssemb‏ فقط, لن نحتاج إلی اط 32 ur‌اAssemb‏ و هذا لأننا نولد 
الكود النهائي هنا و سنحاول فيه أن نعتمد فقط على المقاطعات interruptions)‏ lesا)‏ و لj‏ 
نتعامل مع الدوال الجاهزة أو ٠م"‏ اكرء كامممج ءها إذ أن الكود يجب أن يكون على أبسط شكل 
و أقرب شكل إلى لغة الآلة, هذا مثال لكود إuعاbصعءa‏ يقوم بطباعة الجملة hello wo‏ 


„MODEL small 
SEaAeK . TOOR 
data 
msg Ob " BELlLo;, WOFLOTTy LS LOp 
. code 
start: 
MOV ax, dGdata 
MOV ds,ax 
MOV dx,offset msg 
MOV ah, 9 
IRE 21h ; الق ستعرض كترورى. االعغعتوان‎ ٠ الغا طعة‎ 
اللموجوة .٠ق كذئ "كس غل المضشاشة‎ 
MOV ax, OCO07h 
ا‎ 21h ;: آلاتتظار إلى أن يتم ضغظ مفتاح من‎ 


لوحة المفاتيح 
MOV ax, 4CO0Oh‏ 


LE 21h 
end start 


إذا ردت ترجمته استعمل أي ۲ ںuع‌اbصع‌Ass‏ ک Wi nAsm Studio‏ مثلا, لتفھم بقیة الکتاب یجب 
ان تكون على إطلاع و لو قليل بلغة التجميع مثلي. 
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أنشي ملف جدید باسم ۸.۳۸ 00۴_6٤۴‏ لنكتب فيه بعض الدوال التي تمكننا من كتابة الكود 
المولد فقي ملف من نوع 45۳.“: 


includes dio.hz 
ERMAFE CALA _ SECE LOR [10241 قسم التصريحات//‎ 


CMAIE COE SECE OM [SMOLIN قسم الكود//‎ 
LIS SECO 


قتنف يلف :التي نجل الكوق اال اتح 
دالة تمكننا من إنشاء« ملف جديد ليكون // e Ov DÎ‏ 
بمثابة نتيجة لترجمة الألغوريتم 


fcode س‎ fopen (file, gM) f 
SE ECO (OEE E SOCEM, _ E 
SEK CON (COS SECLIOM, UE 


} 


vold Ad Data (eae *™data) إضافة تصريح//‎ 
{ 
strcat (data_section, data); 


} 


void Add _ Code (char *cOde) //ةخnيıلlaتة إضافة‎ 
1 
SEBE aE (CONE SEC OM, COME) 


} 


n 0g oOo Vl // تقوم بإغلاق الملف وإتعمام العملية حين ننهي توليد‎ 
لكود‎ 
1 
OE LE (COCO, MODEL, Small. SLACK LOONIE NA DATANIN) £ 
TO TOE E (ECOCE, YES, CELE SECC LOD) f 

OE LE E (ECOCE, < CODENENASLAL ES NENA) f 

OER Ê (FCOCE, mov dx; CCAEANE NA) f 

OE LEL (LCOS, mow CE, e ENA) f 

TEE IRE (EOE, LSS, COME SCECETORM), 

EOELOE E (ECO, EMC SLA NENA) F 

E NLOSE ( ECOCS ) û 


أغلق الملف C09۴_6۴۸.۳۸‏ مع حفظ التفييرات. 
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إذا إفتح الملف 219.۷م١0»‏ و لنبدأً بهذا التفيير بما أننا سنستعمل دوال اlلملف :CODE_GEN.H‏ 


Ls 
#include "d:\lex_yacc\exemples\SYMB_TAB.H" 
IMCL UES WEE NALE MACE NEz Mol ES CODE CEN 
EE 


تخت علا ئة الفلف الذف سنكي فة آلكوذ المولد ذ هدا على كه الذالة الزتشتة: 


eT 
main(int argc,char *argv[1]) 

{ 

CLEFSCE (O); 

if ((yyin=fopen ("d:\\lex_ yacc\\exemples\\test.alg", "r") )==NULL) 
{ 

printf ("test.alg not found !\n"); 

getch(); 

return; 

} 
ntl l_ COCE (WEE NNLEX VACCNNEXEMOLESN NEES ASM) 7 
yyparse (); 
Di SPOS _ COE (J 

LF(IEEEOES) BEINTEE (OKT); 

getch(); 

FEeELUEN?; 

} 

Lae 


آه, تذكرت, الملف واه.اكع† كنا قد كتبنا فيه أكواد خاطئة معنويا أثناء برمجة المحلل المعنوي, 
عد إلى الملف واة.اكعا و أكتب فيه هذا الكود الصحيح ليكون فأر التجربة: 


algorithme alg 
entier resultat,a; 
reel r; 

caractere car; 
chaine s; 

debut 

ecrire "Entrer a = "; 
lire a; 

lire r; 

lire s; 

8<-8; 

g<="O1l23496 709, 
ecrire "c" 
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Caf Tar; 
resultat<~5; 
a<-resultat*10+5; 
ecrire !,"a = ",a; 
lire a; 

fin. 


الآن, أعد توليد المترحم ٤6.۴×۴اC0M۲۸‏ و شغله ليقوم بترحمة واة.اكه و ستلاحظ أنه 
سيولد لنا الملف الجدید ۲۴51.۸5١۷‏ الذي يحمل كود التجميع, و بما أن كل ما ولدناه إلى الآن 
هو رأس الكود فسيكون محتواه كالآتي: 
.MODEL small‏ 
.stack 100h‏ 


.DATA 

. CODE 

gStaEl 

MOV ax, Gdata 
MOV ds,ax 


end start 
الآن اتضخت لك القكرة مائة في الماتةر لنواصل توليد نة الكود:‎ 
في حالة التصريح عن المتغيرات فان ذلك يندرج تحت القاعدة التالية:‎ 


1de: IDENT {setup_sym ($1, current_type);} 
IDENT VER ident {setup_sym ($1 


, current_type);} 


بدأنا نقترب من إكمال هذه المرحلة, طبعا لا, مازلنا بعيدين كل البعد و لكن الفكرة تتضح أكثر 
فأكثر و لهذا أنهي هذا الكتاب هنا و لتكمل البقية بنفسك...أمزح فقط(أردت الهروب قبل أن 
تزداد المسألة صعوبة..), لا يهم, لنكمل. 


الأضروة عى الات مها نتف ما كا قي الرمكة فة التخمة تافافل كح انوع 
الحقيقي على أنه صحيح أما سلاسل الحروف و الحروف فسهل التعامل معها, لزيادة الفهم 
لاحظ هذا التصريح وإلى ماذا سنحوله: 


entier a; 6 dup(?) 
reel r; 6 dup(?) 
caractere car; ? 


chaine s; 56 dup('’) 
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قد لا يكون ذلك التصريح المتثالي بالنسبة للغة التجميع و لكن تلك حدودي حاليا, إذا كنت 
تستطيع فعل ما هو أفضل من ذلك فافعل, نتجه الآن إلى 9.۷ا0۳P3»‏ لنفعل ذلك: 
Crs‏ 


ident : IDENT 1 
setup_sym ($1, current_type) ; 


1 ( (CULLERE_ Û 0> —— MEJ) || 
(current_type == _float)) 

1 

Add Data (51); 

Cel Dekel (UNECE CUD (2) E A) f 
} 

CIS Mi (CUEBEENE EVE MENE) 

1 

Add_Data ($1); 

ACE Delt el ( U NECIONE AEN) f 

} 

Elê 1f (CUCEENE EVO == EE) 

1 

Add Data ($1); 

acl Datla (ECO NE 56 duo (3 VY NENA 
} 
} 

| IDENT VER ident { 
setup_sym ($1, current_type) ; 


Ti ( (CULE COE —— ME) || 
(current_type == _float)) 
{ 
Add Data ($1); 
elel Dekel ( UNECE G CUO (AY ENB 
} 
else if (current_type == _chr) 
1 
Add Data ($1); 
elel Data (A NECGONE NENA) gp 
} 
Elê 1f (CUELENE EMI = _ ELL) 
{ 
AAA Daka (S1), 
Adlel Data ( NEON ESG CuO FP) NENA) 
} 
} 


aT 
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جميل, أعد توليد المترحم ثم شغل البرنامج C0MP۸16.٤×۴‏ لينتج لن lلملف TEST.ASM‏ 
بالمحتوى التالي: 


.MODEL small 
.stack 100h 


. DATA 

a dw 6 dup (2?) 
resultat dw 6 OUD (2) 
7 dw 6 dup (2?) 

car db ? 

S db 56 dup(’ °`) 
CODE 

Sta 

mMmOv ax, Gdata 

MOV ds,ax 


end start 


القتصريح عن المتقيرات كات سهلا, أرجو أن يكوت الباقي شهلا أبظا أو أشهل. 


لنبدأً بتولید الكود الخاص ب ۲۴ا و ,€)٣1۲۵‏ سنبدأً ب ١۲أ۲٤6‏ لأنها تبدو أسهل و بما أنها تخرج 
نصوص على الشاشة فإننا سنستخدم المقاطعة 211 أ٣|أ,‏ لنرى. 


الدالة ١١٠٣ع‏ قد تأخذ على شكل بارامتر إما متغير أو سلسلة حرفية, إذا كانت سلسلة حرفية 
قنجب أن تصرح كنها آولا قى قشم البيانات تم تخرجها الى الشاشة فلا 


ecrire "Entrer a = "; ecrire "c"; 


.DATA 
_MSG 1 BAB TERtrEL @ = WMS; 


DE 


dx,offset msg 
ah, 9 
21 


لنثبت هذا قبل أن ننتقل إلى غیره, ولکن, عندما یرجع 1٤×‏ التوکن C۸۸۸‏ أو H۸۸۴‏ يجب أن 
يرفق معهما قيمة السلسة الحرفية و لهذا إفتح الملف |.9اaمmدءا:‏ 


eas 

TUT TNT { 
SEE E OY (e N SEE, VVE) 
return (CARA) ; 
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} 

TEMO PETTY { 
SE CO I AN TSE E, VEO SE J) f 
return (CHAINE); 


} 


A er 


إذا كان بارامتر الدالة 6٩۲١١‏ عبارة عن سلسلة حرفية فإننا سنحتاج إلى التصريح عنه و كأنه 
متغير عادي, لذلك, سنعطي لتلك السلسلة من المتغيرات هذا الشكل _×۳"59_ حيث 
سيتغير × من 0 إلى 9, لذلك نعود إلى الملف )00۴_6۴۸×N.۸‏ و لنصرح عن المتغير 
data_counter‏ ليكون بمتابة عداد لقيمة × و كذلك سنصرح عن متغیر مؤقت ۲۴۳۲ء وهو 
عبارة عن مؤشر لسلسة حرفية قد نحتاجها لحفظ بعض العناوين بشكل مؤقت, كذلك سنحتاج 
إلى متفير نحدد فيه ما إذا كانت التعليمة الأخيرة أهي ٥١۲١‏ إو إسناد لأنهما يتقاطعان في 
نفس lلقاعدة :sexpr g fexpr‏ 


ots 

HIMO LUCESEECALAS, MS 
#define _WRITE 2 
Oe AMEe _ AFFECT 8 


char data_section [1024]; 
char code section [8192]; 
FILE *fcode; 

int data_counter = 0; 


CMa SEFECMO, 


IME CUEEFeRE OBJ; 


eT 


الآن لنعرف دالة جديدة تقوم بإرجاع قيمة جديدة للمتغير _×۳"59_: 


Pn 
eMart : Cen SEE IENE () 


{ 


char *temp = (char*)malloc (sizeof (char) *8); 


EMA SEER ON 

1 EOE (CElaA COUMECE E, SELIG, 10) 
SPE ARE (ECM, €CmMsSoOS ll, SEER 
TEE UED LEM? 


as 


51 


أغلق و احفظ الملف C09۴_6G٤۴۸.۳۸‏ و نعد إلى الملف ۷.واةم"٠هء‏ و بالتحديد إلى القاعدة 
المحدد لشكل الدالة ع٣‏ أاع: 


Pons 

SEO CES EEY CHAINE 
EOE <I ES CARA 
EET 


write:writed_expr 


|writed_expr VER write 
7 


writed_expr :NEW_LINE 


| ELIT NE GO TTT I Fexpr {} 
| CENTTENE OGG TTT sexpr {} 
leas 
sexpr :CHAINE { 
$$= str; 
Lf (EULEEENE_ O9 = MRIS) 


1 
strtemp = GenStrlIdent (); 
Add_ Data (strtemp) ; 
elel Dalal (AW EGON A) 
Add Data (51); 
Elel Dalal (A, NESNENE NA) f 
ACEO Cocle (VPNENRF ECELE FF 
Add_Code (S51); 
clo CoC (ANE DAW) f 
elel Cocla (mov CG, OlREEE WJ 
Add_Code (strtemp) ; 
elel COE (WE 
2e COC ( MIO all, SNE) f 
AClel Code (VIDE AIMED) 
} 
} 
| CARA { 
$%$=_chr; 
1f (current_op == _WRITE) 
1 
ACE Cocê (PNENRE CCELEE FF 
Add_Code (51) ; 
Ada Code (LE BL) 
elel Cocla (Mow CGAL, WF 
Ada Code (SUD, 
Ace COE (UNE NBA) 


ي 
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ACE COCEe (MOV aM, ANEW) f 
Aolel Coole (Aim ZIMEN) 

} 

} 


A ers 


في بداية القاعدة ۲م×ع_لعاأاW‏ حددنا نوع التعليمة التالية و التي ستكون _۴ W۸1۲‏ باستعمال 
,{;Ccurrent_op = _WRITE}‏ يجب الآن أن نحدد متى ستكون التعليمة التالية غير ذلك و 
بالتحدید متی ستکون ۸۴۴۴٤٣۲_‏ ؟ هذا يتم قبل بدأ التحقق من القاعدة ... <- ا>عffج‏ و لذلك 
سنضيف قاعدة مساعدة في بدايتها و نسميها _6۲ : 


rT 
affect :_€F IDENT AFFECT fexpr { 
if (sym_check ($2) ) 
{ 
int sym_type = get_sym_type ($2); 
if ((sym_type==_ int) && ($4== float)) 
{ 


printf ("Erreur:imposible de converter (reel 


a entier) : ligne $%$d.\n",line); 
errors+t+t; 
} 
else if ((sym_type==_ str) && ($4== float) ) 
{ 
printf ("Erreur:imposible de converter (reel 
a chaine) : ligne $%$d.\n",line); 
errors+t+t; 
} 
else if ((sym_type==_ chr) && ($4== float)) 
{ 
printf ("Erreur:imposible de converter (reel 
a caractere) : ligne %d.\n",line); 
EEFOESEH 
} 
else if ((sym_type==_ chr) && ($4== str) ) 
{ 
printf ("Erreur:imposible de converter 
(chaine a caractere) : ligne $%d.\n",line); 
errors+t+t; 
} 
} 
} 
EE IDENT AFFECT sexpr { 


ي 
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if (sym_check ($2) ) 


int sym_type = get_sym_type ($2); 
if ( (sym_type==_chr) && ($4==_str)) 
{ 
printf ("Erreur:imposible de converter 
(chaine a caractere) : ligne $%d.\n",line); 
EEEOESEE, 
} 
else if ((sym_type==_ int) && ($4== str)) 
{ 
printf ("Erreur:imposible de converter 
(chaine a entier) : ligne $%$d.\n",line); 
errors+t+; 
} 
else if ((sym_type== float) && ($4==_ str) ) 
{ 


printf ("Erreur:imposible de converter 


(chaine a reel) : ligne $%$d.\n",line); 
errors+t+t; 
} 
} 
} 
|_SI{CUIIENL OD  _ATEECIG}T 
/ 
8 


الهدف من القاعدة ۲_ هو إعطاء القيمة ٤٣۲_‏ ۸۴۴۴ للمتغفیر 0P_ا٣ع٣cu۲‏ فقط, و بما أننا أضفنا 
قاعدة جديدة في بداية ا٤عffه‏ فان $1 سيصبح $2 و $3 يصبح $4. 


أعد توليد المترحم C0M۶۸16.۴×۴‏ من جديد ثم شغله ليعطيك ملف ۲۴5۲.۸5٥۷‏ نتيجة وهذا 


محتواه: 
sS‏ 
_msgO0_ db"Entrer a = ", "$"‏ 
MSOL.. QB Ta = TIT‏ 
CODE‏ . 
Start‏ 
mOv ax, Gdata‏ 
MOV ds,ax‏ 
;ecrire "Entrer a = "‏ 
mov dx, offset _msgO0_‏ 


ي 
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mov ah, 9 
IRE 21H 


;ecrire "c" 
MOY Ql, "o" 
mov ah, 2 
int 21h 


;ecrire "a = " 

mov dx, Offset _Mmsol_ 
mov ah, 9 

int 21h 

end start 


جندر قي :٠نا‏ اخراج: المقيرات كذلك الرمز الخاض! الذى هتي سطر جذين بالنسية لل 
فسهل, لنضف إلى قسم البیانات متفیر جدید و ثابت و لنسمه _NEW|1N٤_‏ و بما أنه ثابت 
فإننا سنضيفه على شكل قطعة ثابتة من الكود النهائي و هذا في الملف ۸.۳۸ :COD٤_G٤‏ 


LA e 
vVOid Dispose_Code () 
{ 
fprintf (fcode, ".MODEL small\r\n.stack 100h\r\n.DATA\r\n"); 
EOELME Ê (ECOQME, W_ MELLIN NEAMONE LI, LO, NUNN ENA) f 
FSELATÎ (FCOUE, "S9", Uata SECTION; 
Ef (FCoE, TACODEVE\MHSEEFES EAT; 
fprintf (fcode, "mov ax, @Gdata\r\n"); 
EpEINtEEÊ (EFcCodéêy, "mov dsyaãx\r\n") j; 
Ê ( 
EE ( 


FpELN 


fCOdéy "SS"; COdê SéttILOoN) ; 
Fceodê, "nd STaFEXE A"); 


fclose (fcode); 


FEIN 


FpEL 


ss 


عودة إلى 9.۷ا۲3١0»‏ و لنكمل ذلك: 


eT 
writed_expr :NEW_LINE { 
ACCEL Cocle (mow Gy, Oli SOL _NEMLINE NEw) f 
ACE COME (MOV aM, ONEN) @ 
elel Code (YIinME ZIMEN) f 
} 
| {current_op = _WRITE; }fexpr {} 
| {current_op = _WRITE; }sexpr {} 


. 
r 
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i 


اة اكرات إا كان الفقر قي أو اة فة فن كلك مم هة .و 
ناستفمال المقاطفة 2١‏ اة مخ وطخ ران المتفر فى المسخل ية أذاك 


eT 
fexpr : REEL 15$= Float; } 
| ENTIER {$$=_int;} 
| IDENT { 
1 (SYM CeCe ($L) 
1 
$$ = get_sym_type ($1); 
Add_Code ("\r\n;jecrire "); 
Add_Code ($51); 
cle COME (NENA, 
II EET) 
{ 
ClO COE (MOY Cbs, OLE WF 
AS Cole CI, 
acl Code (NENA) f 
elel Coole ( Welelel CG, ZEW) 
ACC COCEe (mow al, SNE) f 
acl Coole (Vink ZINE) 
} 
else if($$ == _chr) 
{ 
Add Code mov dl, FF; 
Add_Code ($1); 
All COE (NENW) Ff 
acl Cole (Mov aM, ZANE) 
acl Cocle (ime ZIMEN) EF 
} 
} 
} 
E 


آ6 کان المکی مد فوا ها على آن قال الكت الف على آنا د 
فشكل هذه القطهة فى الكنة التي تفرص ففرا صخا على القافة 


ten dw 10 
zero equ Û 
N db 6 dup (0) 


mov dx, O 
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"07 4×,145 العدد أو المتغير الذي نريد طبغه على الشاشة;‎ 
MOV Cx, O0 
lea bx,N 
next0: 
div ten 
cmp ax, zero 
Jz axû 
mp contûo 


cmp dx; 0 
Jz endû 


add dx, 48 
mov [bx]|,dx 
INC o 
LNG BX 
mov dx, O0 
jmp nextûO 
end0: 
dec bx 
printû0: 
mov al, [bx| 
dec bx 
mov ah, OEh 
int 10h 
loop printûO 


هناك متفيرات ثابتة و هي _۲۴×N_‏ و _Z۴R0_‏ و _N_‏ و أیضا هنا بعض les étiqueااt es‏ أو 
ئها التي يجب أن تتفير مع كل عميلة طبع عدد صحيح, مثلا, اللايبل ۸6×0 سيصبح في 
المرة القادمة ٣٥×٤1‏ و ھکذا, نعود إلى الملف C0 D۴_6٤ N.۳۸‏ لنثبت هذا: 


ETT 
int write int_counter = 0; ك اة اللادلس ر7‎ 
ais 
VOi1d Dispose_Code () 
{ 
fprintf (fcode, ".MODEL small\r\n.stack 100h\r\n.DATA\r\n"); 
fprintf (fcode, "_NEWLINE_\tdb\t13,10,\"S\"\r\n"); 
OE LL E (EECEOCE, TON NEENE LON ENA f 
tO IDLE (COGS, WA _ ZAMNO NLECUNLONE NAW) f 
i OE LM (COC, _M NECN EG CUS (O) NENA 
fprintf (fcode, "$s", data_section); 
EPELNtCE (ECOQE,  T.CODENE\NSESAEE SEAT) 
fprintf (fcode, "mov ax, @Gdata\r\n"); 


ي 
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EpEINEE (E£code;, "mov ds,ax\E\AT") ; 
fprintf (fcode, "$s", code_section); 
fprintf (fcode, "end start\r\n"); 
fclose (fcode); 


الدالة التي تولد لايبل جديد// ا 0 ا 0 a CC RR o O‏ 
{ 

eha ECMO (eR: Mal IOC (SIZE OE (CERAE) LO) 

char string [4]; 

EOS (ME IEC ANRE COUN EC E, SEEMS, ON 

SPEAR E (ECMO, SSeS, Ae, SEEMING 

TE EIEN ECMO, 


void GenLlLabelIncCounter () 
1 

WIIG INL COM EL, 

} 

aT 


إذا, إذا أردنا الحصول على 6×0" فإننا نستدعي الدالة: 


GenLabel ("next") 


/ 


و لننتقل إلى المستوى التالي أو 1أ×ع" نستدعي llدlلة .GenLabelIncCounter‏ 


عد إل الملف 9.yاaمpمcom:‏ 


aT 

fexpr : REEL {5%$=_float;} 
| ENTIER {$5%5= INE; } 
| IDENT { 


if (sym_check (51) ) 


$$ = get_sym_type ($1); 
if (current_op == _WRITE) 
{ 
Add Codê ("\Ee\n;écrirée YT); 
Add_Codêe ($1) ; 
Add_Code ("\r\n") ; 
ifF(5$$ == _str) 
{ 
Add_Code ("mov dx, offset "); 
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Add_Code ($1); 


( 
Add_Code ("\r\n") ; 
Add_Code ("mov ah, 9\r\n"); 
AGI Code (TIRE AIBNEAT"TF 
} 
él5ê 1(9 == | eRF) 
{ 
Add_Code ("mov dl, "); 


( 
Add Cödê ($1); 
Add_Code ("\r\n") ; 
( 
( 


Add_Code ("mov ah, 2\r\n"); 

Add_Code ("int 21h\r\n"); 

} 

Elê 1F((5S = _FIOAE) || (© => AME) ) 


1 

AcE Cocle (Oy Cb, ONE NA 

Add Code (mov 34x, J); 

Ada Code (S1); 

Ace Coole (U NE MOY Cy ONEN) 
AcE Code (IEA Oxy, MM NEN) Fg 

Add_ Code (GenLabel ("next") ); 

Acie Code (Wg (EN) 

Ada Code (LEA TEN EMD, 
AClel Coole (UN ECOMS Ex, _ LBEEO_ NENA) Ff 
AElol Coole (NEZ _ FF 

Add_Code (GenLabel ("ax")); 

ee COCKE (CW E 

elel Cocle (AE JMS 

Add_Code (GenLabel ("cont")); 

CEL COC (A NE NO) f 
Add_ Code (GenLabel ("ax")); 


ACEO COC (FS NENDADR 
AAA COode (LUNE EMES Cx, OER 
Adel Code (NEZ PD, 
Add_Code (GenLabel ("end")); 


acl Code (NENA) fF 
Add_Code (GenLabel ("cont")); 
Aci Code (2 NENA) Ff 


2ol Cole (UNESCO Cb, LONER) 
ACE Cocle (Novy [Ox pg CENE A) f 
ACO COCE (ONE TRE CX\ENAM) 

elel Cole (UNE LAC ONE NA) f 


ACE COocle (UN EMO Cbg ONEN) F 
Ace Cols (ANE MS PF 


ي 
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Add_Code (GenLabel ("next") ); 
acl Code (NE NAV) f 
Add_ Code (GenLabel ("end") ); 
Aelel Code (Fs (ENA) Ff 

AelEl COC (AN ECEC ONEN 

ACEO COClEe (EER LEE L (OE LAE DNF 
ACdlel Code (Fes (ENA) f 

ACE Cocê (VNEmOovy al, [OX NENA) f 
ACE Cocle (WNECGEC NENA) 

ACE COC (NEMO aM, OEE NA) f 
elel COCE (NEAR LONE) F 
elel Cocle (UN ELO WF 

AclEOl COCE (EER LEE (WOE aE NF 
Col CoC (AE) 
GenLabelIncCounter () ; 


0 


ما زالت هناك حالة أخيرة فيما يخص الدالة 6۲١١١‏ و هي الحالة التي نمرر لها عدد صحيح أو 
حقيقي مباشرة کبارامتر, متلا ; 114 ,€c٣٣ ٤۴‏ طبعا سنستعمل llلقlاعدةö g fexpr ->REEL‏ 
ENR‏ :اfe»p,‏ أما بالنسبة للكود فهو نفسه كود طبع المتفيرات الصحيحة مع تفيير التعليمة 
,mov ax,$1 JJ| mov ax, _var_name_‏ أما بالنسبة للقيمة الحقيقية فإننا نحولها إلى قيمة 
حقيقة أولا باستعمال ; 51(,|) = ¡ |١‏ مثلارلكن و بما أننا سنستعمل نفس الكود لمرتين 
أخريين فإننا سننشئ دالة جديدة اختصارا لمساحة الكود, لتكن هذه llدlلö writeNum_Code‏ 
في الملف C02۴_6۴۸.۳‏ و ستأخذ على شكل بارامتر اسم المتفير أو القيمة التي سنطبعها, 
لاحظ: 


Plas 

متغير مؤقت سنحتاجه لحفظ سلاسل الجروف // eRe SEREM AI‏ 
مؤقتا 

Id 

vVOid WriteNum_Code (char *value) 
{ 

ACG COCe (MO Cb, ONE NAM) f 

AGO Code (mov Ax, O), 

Add_Code (value) ; 

ACE COC (UNE NAMO Cx, ONEN) EF 
ACE COGS (WIESE Oy NNE NOI) 
Ada _ Code (EenLabel (Rex LJ), 
Ale Code (WE NENA) f 


ي 


60 


ACEC Cocle (NECA _TEN NENA) f 

ACO Cocls (NECM E, _ ZAERO _ NENA) F8 
Adel COE (EZ PD, 

Add_Code (GenLabel ("ax")); 

ACE COCKE (ANE 

Alek Cole (UNE JMS WF 

AAO Code (CER LabBe 1 (Eom LL), 

AOE COCKE (WE MW) 
Add_Code (GenLabel ("ax")); 
Adie Code (YE NENA) F 

AClol Coole (NECM Cb, ONE NAA) f 
Aelol COGS (NEZ WF 

Add_ Code (GenLabel ("end") ); 
ACL COCKE (A E A) 
Add_Code (GenLabel ("cont")); 
Aol COGS (AE E AMD) 

ACI COME (U NE aElEO eb, ONE NAW) 
ACEO Cocle (NEmOovY [Ol ENE AJP 
ACE COClE (ANE LOC CENA) 

AGE CONE (UNECE ENED 

Aelel COE (MoT CE, ONE RDF 
AAA Code (LEME U. 

Add_ Code (GenLabel ("next") ); 
ACI Code (UNE NAP) 2 
Add_Code (GenLabel ("end")); 

ACE COE (WE NE AW) 

ACI Cocle (UNEGEGS OEE NAD f 

2 elel Cecil (EE mM LEloSe NÛ (oie 1E J 
ACE Cocle (VE NENA) f 

elel Col (NEMO AU, OX NE ADP 
Ada eode (U EES OS EL, 

Ed CoOde (NEMO GAM OER E BO 
Ad Code (tant LORENA) f 

Ale Coole (UE LOO WF 

Add_ Code (GenLabel ("print") ); 
Aclel COCE (UNE AWD f 
GenLlLabelIncCounter (); 


ls 


بالنسبة للملف ٤)0۳P3I9.۷‏ سنجري هذه التغفييرات: 


TT 
fEexXpEr :REEL { 
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$= float; 

iE (CUEEEME COS > MENDE) 

1 
SOE AMIE E (SEEEOMOL, SON, (AME) SL 
cle COCE (ANE NM ECELE Wp 
cle COCle (SE EEL) f 
2CIEOL COCE (NE N) 
WriteNum_Code (strtempl) ; 
} 

} 

| ENTIER { 


$$%$=_ int; 
1f (current_op == _WRITE) 

{ 

SOLEIL (SLECOMOL, ECON, SUE 
ACEO COoClE (NEN ECELE Wp 
ACO COCE (SE ECMO) 7 

ACEO COCA (A NE NA) f 
WriteNum_Code (strtemp1l) ; 


A 


و بما أننا استعملنا $1 و هي القيمة التي يجب على 1٤×‏ إعادتها مچ التوكj EN71ER‏ مھ REEL‏ 
فيجب التصريح عن نوع كل من القيم المرفقة مg REEL‏ ۾ :ENTIER‏ 
ET‏ 


LOKE CUTIES ENTLIER 
Stoken <Tfloat> REEL 


TT 
ولنعد إلى الملف |.9١2م۲١۳١١»| لنعيد القيم مع التوكنز:‎ 
lis 
{reel} { 
yl wal , FELOAE = aAlEOL (VVELE ) f 
TFELUEH(REED) ; 
} 
{entier} { 
iy za TRIE > GEO EEE) 
return (ENTIER) ; 
} 
sS 
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و بهذا ننهي توليد الكود الخاص بالدالة e)۲۲١‏ و إذا أردت رؤية النتيجة الحالية للمترحم فأعد 
تولیده و شغله و افتح الملف 5۳ه.اءعا: 


.MODEL small 

.stack 100h 

. DATA 

_ NEWLINE_ db Sy, LO TO 
_TEN_. dw10 


_ZERO_ equ 0 
No db 6 dup (0) 
„CODE 

Start; 


;ecrire a 
mov dx, O 
mov ax,a 
MOV Cx, O0 
lea bx,_N_ 
next0: 
div _TEN_ 
CMP ax,__ZERO_ 
jZ ax0 
jmp contûO 
ax0: 
Cm OK, O 
jz endû 
contû0: 
add dx, 48 
mov [bx]|,Qdx 
IRE CR 
LINE Bx 
mov dx, O0 
jmp nextûO 
endû0: 
dêc bx 
printO0: 
mov al, [bx| 
dec bx 
mov ah, OEh 
IHC LOR 
LOO" PELINE O 
énd start 
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ننتقل الآن إلى الدالة ۲6١ا‏ و التي ستأخد على شكل بارامتر إما متغير خرقي أو متغير من توغ 
سلسلة حرفية أو متغير صحيح أو حقيقي, بالنسبة للمتغيرات الحرفية فالأمر بسيط نوعا ما: 


lire car; 


dx, offset s 

ah, OAh 

21h 

di, offset s 

OX; BK 

bl, [di+1] 

byte ptr [ditbx+2],'5$'" 
dx, offset _NEWLINE_ 
ah, 9 

21h 


طبعا ذلك على مستوى القاعدة أ2ع۲: 


ah 

read: IDENT { 
1E (SM CoG ($1) ) 
0 


AcE Cocê (NE Nmg LLEe JF 

Ada Code (SL), 

Ace CoOcle (UNE NAA) 

Lf (get_sym_type ($1) == _chr) 
{ 

Adad_ Code ("mov ah, Olh\r\n") ; 
elel Code (U ALONE NA 

Add Code ("mov "); 

Add_ Code ($51); 

ACE COC (, ALEMA) fF 

} 

else if (get_sym_type ($1) == _str) 
1 

Add Code ("mov dx, Offset "); 
Add Code (51); 

olo COCKE (UE DA) 

ACE COCE (mow aly, OAR NAM) f 
AClOl COME (Yt AINE 
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TNE NENAW) f 


IO2), SNE NAP) 
EME. NENA) f 


[AAO E2, STEN) PF 


AMO CSE (IMO GL, OLrSeEE LO) 
Add_Code ($51); 


AcE Code (NENA) Ff 


elel COE (EOE O, ODL) 
elel COG (mow Ol, COLELI NENA) f 
ACE COCE (HMO OEeê OE 

AAO Code (IMO Ox, Ori SeE _NEVL 
AcE Cocle (mow aM, SNE) fF 

elel COGS (ANE ALANNA) 


{ 
1i (EM _CAECK (SL) ) 
{ 
cle Cocle (NENE LLEE Wp 
Add_Code ($51); 
2 Coe E 
Li (OSE SVM _ EWOIS (SL) 
{ 
Aelel Coole (MOY aM, OIBNEA) 
Acie Cocle (int ZIMEN) f 
AGE Code ( mov LO, 
AS COE EI, 


CERME) 


CEL COCE (Fy, ALE) 

} 

else if (get_sym_type ($1) == _str) 
1 

AME CSS e ( MOY Cx, OSE LD) 
Add_ Code (S1); 

aelel COME (NENW) f 

Adad_ Code ("mov ah, OAh\r\n") ; 


Ada Code (lint ZIRE) 
ACCEL Coole (EMO G.,__ Oi SEE 
Add_Code (51); 

Add_ Code (J\r\n") ; 


E 


Ada Code (xor Bx, Dx EM LD 
elel COE (mow Ol, [OLIN NENA) F 
cle CoOcle (mow OWES OLE 

Ada _ Code ( ImMOVY Ax, OffSeEE _NEWU 
ACE COCE (MOY el, ONEN) 

elel Cole (UN ALONE NA 
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IDENT VER read 


و 


ماذا فن قراءة القم الصصخة والحفة س تعمل هة الفطكة مى الكو 


_ENTER_ equ 13 


MON Ex, 0 
next0: 
mov ah, OOh 
1D 16B 
mov ah, Oeh 
1t LOR 
cmp al, _ENTER_ 
je endûO 
cmp al, '0' 
jb endûO 
CMP al 9 


pop ax 
mov ah, O 
sub al, 48 
add cx,ax 
jmp nextû 
endû0: 
MOV a, Cx // هن الحتغير الذق سنحفظ فيه . القيمة المقرووة‎ 


سنحتاج أولا إلى نصرح عن الثابت _۴N۲۴۸_‏ الذي يمثل قيمة الزر ٤۸1۴۴‏ (13) في قسم 
البيانات و هذا على مستوى الملف :CODE_GEN.H‏ 


aa 
VOid Dispose_Code () 


fprintf (fcode, ".MODEL small\r\n.stack 100h\r\n.DATA\r\n"); 
FpEILNETF (ECOG, "- NEWLINE (EOD ELS, LO, TON EET 
fprintf (fcode, "_TEN_\tdw\t10\r\n"); 

( 


EpPEILDEE (£ESde;y. "ZERO \NbeGUNEONENRN™) 
EPEINtLE (EGOde”, TNE NEABNE6 QUBA OJ NENT); 
OE LR (ECOOSE, _BNTER NESCUVELINE VA) f 


ي 
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fprintf (fcode, "$s", data_section); 
EBELINEE (ECOdE;. T.CODENEXASESETTXE\AT™) 
fprintf (fcode, "mov ax, @Gdata\r\n"); 
fprintf (fcode, "mov ds,ax\r\n") ; 

fprintf (fcode, "$s", code_section); 
fprintf (fcode, "\r\nmov ax, OCO07h\r\n"); 
EDEINEE (EGOdS, TIRt ALEXEY; 

EBpEINtEE (f£codê, "\r\nNmov ax, 4COO0B\NE\A"™) j 
EPELINEE (EEOdEy,- Tin ALIBNENAT™)? 

fprintf (fcode, "end start\r\n"); 


fclose (fcode) ; 


} 
0 


وكذلك نضيف الدالة عمdە€_" Read Nu‏ المشابهة ل عod€_WrilteNum‏ والتي ستقوم بتولید 
كود تجميع يقرأ قيمة صحيحة و يسندها للمتغير المعطى على شكل بارامتر: 


E 

vOid ReadNum_Code (char *var) 

1 

ACE COCle (MOY Cx, ONEN f 
Add_Code (GenLabel ("next")); 
ACCEL Cocle (VE NENA) f 

Xda Code (Emoy aM, OOM E ML) 
ACG COE (Nt LOM ENA) fF 

Ada Code (LN Emovy GR, OEM E ML), 
ACG. Code (tame LORENA) 2 

ACL Cole (UN ECMO AL ,_ MDE NE NAF 
elel Code (EDS WF 

Add_Code (GenLabel ("end") ); 

ACE COCKE (A E 

ACO COMES (NEON AL, ONE NAF 
All COGS (NE JS WJ; 

Add_ Code (GenLabel ("end") ); 

AGI Code (NENA) f 

AClel Cocê (NECM AL, SF NENA) f 
AClel Coole (NENA), 

Add_ Code (GenLabel ("end") ); 
Add_ Code (T\r\n") ; 

All Coole (NEOUS NENA) 

ACEC COcle (UN EMOV Exp CENE) 
Ed LECode LN EMU CLIENT ML), 
elel Cool (EMO Cy ENES 
Cle COE (UN EOS EE NW) f 


ي 
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Adel Code (WN Emov ah, ONE\AP) f 
Acid Code (WNtEsub al, AONE\A™) f 
Adel Code (YN EAC Cx, Ax NE NA) f 


elel Code (NE JMS __ JF 

Acie Code (NENA) Ff 

Add_ Code (GenLabel ("end") ); 
Adil Code (Ye Ea) £ 


( 
( 
( 
( 
AGO Code (EER La Bel (mese 
( 
( 
( 
( 


Ada Code (Emoy LL); 
Add_ Code (var); 

ACO Cole (r, ENE NA) PF 
GenLabelIncCounter (); 


نعود إلى الملف :c0m™"p213.۷‏ 


1 
read: IDENT { 
ETT 
else if ((get_sym_type ($1) == 
(get_sym_type ($1) == 
{ 
ReadNum_Code ($1); 
} 
} 
} 
| IDENT VER read { 
es 
else if ((get_sym_type ($1) == 
(gE Sm SSI) == 
{ 
ReadNum_Code ($1); 
} 
} 
ETE 


فنا فيي ولد الكه الخاضص لاله ٠‏ قي ففط ولد الكوة المذافئى اللإسعافات كن 
الفتغرات و القتم وبافي القفملباة الخسانتة الراضةر البدانة كوت فن القاغذة النالرة: 


affect:_er IDENT AFFECT fexpr 
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نضیف أولا ۹ueا†séman action‏ بواسطتها نولد تعليق نشير به إلى أن القطعة القادمة من كود 


التجميع تمثل عملية إسناد: 

TT 
affect:_er IDENT AFFECT E N GG O 
< DET) 7 ERE 

if (sym_check (52) ) 

{ 

ê 

if ( (sym_type==_ int) || (sym_type==_ float) ) 


{ 
7/151 تفرم باستاة التتيحة إل‎ 
} 
else if (sym_type==_ chr) 
1 
77/3511 تقوم اساد ال ت‎ 
elel COE (HMO #)P 
Add_Code ($2); 
ACEO COCE (Wy, ALE) 
ٍ 
} 
} 
|_er IDENT AFFECT ET N N o TT 
< EE) 7 BES 
if (sym_check (52) ) 
{ 
atê 
Lf ( (sym_type== int) || (sym_type== float) ) 
{ 
/⁄35 N11 تقوم قاستاة "النتنجة‎ 
} 
else if (sym_type==_chr) 
1 
/ 15I I تقوم خاستاد اا ية‎ 
AE Code (mov "0; 
Ada _ Code (S2); 
ACE COCE (PF; ALNENA) f 
} 


is 


بدأنا بالتعامل مع الحروف, إذ سنقوم بإسناد حرف إلى متغير حرفي عن طريق التعليمة: 
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mov car, al 


حيث ٤)3۲‏ هو اسم المتفير, يبقى الآن أن نضع قيمة الحرف داخل المسجل اه: 


fe 
sexpr :CHAINE { 
TT 
} 
| CARA { 
Ey 
CSE E (CUEECRNELOSD 2 CI EEREHCOM) 
1 
elel COE (HMO al, JF 
Ada Code (SI), 
ACE COC (ANE N) f 
} 
} 
ET 


ل الى عة اساد اة رة الى مقن فا مخت آنه فلك ال اة قن 
قس م الساات على آها مغر تور تسده الى الفكر امك اف قةر لا ر نا كان لدا هدا 
الإسناد: 

S<-"0123456789"; 


کولم لی هنا الگود: 
_msg2_ db"0123456789", "$"‏ 


MOY Q1, OEFSEE S8 7 5هق المتغيرز الذى ستستهك. إلة السلسلة الرفية‎ 
mov Si,offset _msg2_ 

mov Cx, [si+1] 

next0: 

mov al, [si] 


EMD @L,0 

jz endû 

moO byte ptt [Qil,al 
inNCE 81 

LNG Qi 

dêc cx 

e Ea 

je endûO 

loop nextû 

end0: 


70 


نحن سنحتاج إلى أن ننقل إسم المتغير من القاعدة اءءآfة‏ إلى القاعدة ۲م×6ء و لذلك 
نحفظه في المتغير المؤقت المتعدد الإستعمالات 1م "۳ع)٣)ء:‏ 


TT 
affêëöct:_êF IDENT AFFECT {Add Cöodé ( "T\E\nٍ™") Add C56 (5%52) FAG Codê (" 
<- ...\r\n"); }fexpr [ 
8 
} 
|_er IDENT AFFECT {Add_Code ("\r\n;") ;Add_Code ($52) ; Add_Code (" 
<—- ...\r\n") ; BE Ce EE MON O Isexpr { 
LE 
} 
4 
:sexpr:CHAINE öةدعاتل|l أما باقي العمل فیتم على مستو”‎ 
ET 
sexpr :CHAINE { 
ETT 
else if (current_op == _AFFECT) 


{ 

strtemp = GenStrlIdent (); 

Add_ Data (strtemp) ; 

AAA Daka (LEAS EL) 

Add_Data (51); 

CEL Dee el (U, NUS END 

Aad Code (MOV GCM OSCE O) 
2clel COC (SE ECMO) f 

Cll Code (NENA) f 

Cle Coola (MOV S1, OES WJ) p 
Add_ Code (strtemp) ; 

Add_ Code (T\r\nl") ; 

ACE COE (MOV Cx, [SAFIN NENM) 
Add_Code (GenLabel ("next")); 
ACC COME (W2 NENA) f 

clEOl Cocle (AN EOY Al, [SA VENA) 
2 Clel Coole (U N ECMS AL, ONE AA f 
elel Coole (NE JZ __ BDF 

Add_Code (GenLabel ("end")); 

ace Cocle (NENA) 

elel Code (NEMO Ovle PEE ICA, NE NA) fF 
ACE COC (UNEARE SANENAMD 

ACEO Cocle (ANE Tole CA NENA) 

ACE COCe (NECECE CENE) fF 


ي 
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AAA ECode CL ECEME Ex, ONE RL, 
ace Code (NEZ JF 

Add_ Code (GenLabel ("end") ); 
elel Code (NENA) f 

clo Coola (UNE LOSS __ WF 
Add_Code (GenLabel ("next") ); 
elel COME (NENA 
Add_ Code (GenLabel ("end") ); 
Aelel Code (Ws NENA) Ff 

Een Labe 1 IRECOURNE CE 


7 


كان ذلك سهلا نوعا ما, بنفس الطريقة سنولد كود إسناد متغير حرفي إلى متغير حرفي, لكن 
و بما أن كل المتغيرات تتقاطع في القاعدة 12٤۸۲‏ <- ۴6×۲ فيجب علينا إضافة متفير جديد 
يحمل قيمة تحدد نوع المتغير الذي سنسند إليه قيمة المتغير 10٤١١‏ الموجود في القاعدة 
,fex×pr -< DENT‏ سنسمي هذا المتغیر ٥م۸۲۲۷‏ ع1]1اec Aff‏ و سنصرح عنه في بداية الملف 
:compalg.y‏ 


<5{ 

#include<conio.h> 

#include<math.h> 

#include "d:\lex_yacc\exemples\lcompalg.c" 
#include "d:\lex_yacc\exemples\SYMB_TAB.H" 
#include "d:\lex_yacc\exemples\CODE_GEN.H" 
int errors=0; 


int current_type; 
iImE Af tee E lCeME VOC, 
Pl ses 


و سنسند لهذا المتغير نوع المتغير الذي يجب إسناد القيمة g (_int, _float, _str, _ChrF) al‏ 
هذا في بداية القاعدة أcءaff:‏ 


iê 
affect :_êr IDENT AFFECT {Add Code ("X\EXn;") 7Add Code ($2) FAdda Code (" 
سے‎ 
TSA NMIHLCLCOV(SEETOMIL, $2) FP AEEEOCELCENE IVOE=GEL_SM EOE (O2) FES: 
PF { 

TT 

} 

|_er IDENT AFFECT {Add_Code ("\r\n;") ;Add_ Code ($2) ; Add_ Code (" 

> 
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...\r\n");strcpy (strtempl, $2) ;AffectIdentlype=get_sym_type ($2); }sex 


PF { 
N 
} 
%8 
:fexpr -> IDENT öةدعlتلll أما الباقي فسنکمله علی مستوی‎ 
BE 
fexpr :REEL { 
0 
} 
| ENTIER { 
2 
} 
| IDENT { 
TT 
E1 SE 1 (CULELEORML_ OS —— _AOPCL) 


1f (AffectIdentType == _str) 

1 

cle COGS (AMO C1, OEESEE Wf 
Add_Code (strtempl) ; 

clo COC (UNE NAW) F7 

Cll Code (mov S1, OEESCEE Wp 
Add_ Code ($1); 

Add_ Code (J\r\n") ; 

cle Cocle (moO Cx, ISAL NENAS 
Add_Code (GenLabel ("next")); 
ACEO _ COCE (AF NENA) f 

ACE Cocle (UNO al, [SL NE NAP) f 
elel Cools (WN ECS aL, ONE A) 
Adel COE (NEZ FD, 

Add_Code (GenLabel ("end")); 
CIEL COC (A NE NO) 7 

aclel Code (NEMO Ovte OEE ICN, AL ENA), 
AClOl COC (NEALE SANENA) f 

ACE Cocle (NEE CANER f 

Ada Code (NESE CE MD), 

Ace Coole (U NECMS CX, ONE NAA, 
elel COGS (NEZ _ FF 

Add_ Code (GenLabel ("end") ); 
elel COE (NE O 


ي 
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AClel Coole (UNE IOS __ WF 
Add_Code (GenLabel ("next")); 
ACI COE (NENA) f 
Add_Code (GenLabel ("end")); 
Acie Code (WS NENA) ¢ 
GenLabel IncCounter () ; 


3 


لن تفتى نظا الخال الي تمد قفا مقر كي إلى مک خرگی كل ها ستفلة جو 
و فة الفكن الخرقى الفا اة فين المتل اد 


Sd 
fexpr : REEL { 
2 
} 
| ENTIER { 
5 
} 
| IDENT { 
Ras 
else if (current_op == _AFFECT) 
{ 
else if (AffectIdentType == _chr) 
1 
CIEL COCO (MOV Al, _ FE 
Add_Code (51); 
Add_ Code (T\r\nl") ; 
} 
} 
} 
TT 


سنتجاهل العمليات التي تتم بين سلاسل الحروف ک ۷مء ۲ء و ا۲ء و غيرها لأن هدقف هذا 
الكتاب تعليمي و ليس برمجة مترجم من الألف إلى الياء, و هنا ننهي توليد كود التجميع 
الخاص بإسناد المتغيرات الحرفية و سلاسل الحروف إلى المتغيرات الحرفية. 

بقي لنا إنهاء عمليات الإيناد بين المتغيرات الصحيحة و الحقيقية, القاعدة المسؤولة عن 
الاستاد كما أسنا إلتها عشرات المزات من قبل- هيى: 


affect:_er IDENT AFFECT fexpr 


74 


علينا القيام بالحسابات الموجودة في ۴6×١‏ ثم وضعها داخل المسجل ×۸ و عند إكتمال 
القاعدة نسند القيمة الموجودة في ×۸ إلى المتفیر 12٤۸1‏ بواسطة الکود A×‏ ,$1 0۷", 
لنكتب هذا الكود أولا لأنه يبدو سهلا: 


ET 
affect:_er IDENT AFFECT {/*..*/}fexpr { 
if (sym_check ($2) ) 
{ 
eas 
if ( (sym_type==_ int) || (sym_type==_ float) ) 
{ 
AClel_ COE (HMO WP 
AI CONE), 
Aol COE (U ENED) 
} 
ف ا‎ 
} 
} 
eT 


لننسى الآن أمر المتفير و اسمه فهو لن يهمنا و لنقم ببقية الحسابات الموجودة في ۴6×۲ و 
لنسندها إلى المسجل ×عه, نحتاج إلى متغير ولنسمه م۸۲0pع۲ Cu‏ من نوع ¡|٣‏ سيحمل إما 
القيمة اال و التي تعني أنه لا يوجد لدينا أي عملية حاليا و في هذه الخالة سنسند القيمة 
الخحالية إلى ×ه مباشرة 112 loİ ,mov ax,‏ إذا كانت قيمة المتغیر ۸۲0۲عrا Cur‏ متلا PLUS‏ 
فهذا يعني أن العملية الحالية هي الجمع, أي 112 ,× أله: 


kes 

int errors=0; 

int current_type; 

int AffectIdent Type; 
int CurrentOp = NULL; 


eas 
:fع×pم۲ ؟ طبعا على مستوى القاعدة‎ €Cuا٣ع‎ ٣۲0p أين سنحدد القيمة الحالية ل‎ 
ay 
fexpr : REEL { 
8 
} 
|ENTIER { 
la 
} 
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| IDENT { 
E 
} 
| fexpr PLUS E E expr { 
if(($1 == _int) && (E == _int)) 
$$ = _int; 
else 
S$ =, Float; 
} 
| fexpr MOIN E E fexpr { 
if(($1 == _int) && ($4 == _int)) 
$$ = _int; 
else 
$$ = _float; 
} 
| fexpr MULT E ES fexpr { 
if(($1 == _int) && (E == _int)) 
$$ = _int; 
else 
$$ = _float; 
} 
|fexpr DIVS ES TOS BNI N fexpr {$$ = _float;} 
|MOIN fexpr $%prec NEG {5$=5%52; } 
| fexpr PUIS EI hO EUM N fexpr {$5$=$1;} 
|PARG fexpr PARD {$$=52;} 


. 
r 


ET 


أما باقي العمل فنتمه على مستو” lلتقوlعد fexpr -> ENTIER‏ و fexpr -< REEL‏ و كذلك 
expr -< [EN‏ و في نهاية كل قاعدة من القواعد الثلاث يجب إرجاع قيمة م۲0۲١ع٣ا Cu‏ إلى 
:NULL‏ 


TT 
fexpr :REEL { 
ET 
CULTENLOp 2 ULL; 
} 
| ENTIER { 
TT 
CULILENEOS <> ULL; 
} 
| IDENT { 
sas 
CUTTENCOp > NULL; 


ي 
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} 
TT 


أسهل الحالات بالنسبة ل م0٣۲e۵اu٤‏ هي اال و كلاا۴, الكود المحدد لكلتا الحالتين هو: 


a 
fexpr : REEL { 
ses 
if (EMEEFENEOS 2 MULE) 
{ 
Add_Code ("mov ax, "); 
Add_ Code (strtempl) ; 
Ae Code (NENA) f 
} 
else HE (CULKECREOS Z2 PIUS) 
{ 
elel COE ( #ElelOl <, BJF 
ACE COCE (SEE ECEMA) f 
Ada _ Code (LEM), 
} 
} 
CurrentOp = NULL; 
} 
| ENTIER { 
eka 
CSE ME (CUEECRELOS 2 CAHERECOM) 
1 
SOEINEE (SLECOMOL, EON, IDC) OL 
ii (CUE EENEOS < NUE) 
{ 
elel COC (HMO e<, _ BF 
2ClEl COCe (SEL EEO) f 
Aclel CONE (UNENAW) f 
} 
élSE HE (CUEECREOS > US) 
1 
elel COC (ECE 2<, _ WP 
Add_Code (strtemp1l) ; 
Aci Coca (UNE NAW) F 
} 
} 
CurrentOp = NULL; 
} 
| IDENT { 
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if (sym_check (51) ) 
{ 
lse 
else if (current_op == _AFFECT) 
{ 
tes 
CSE AE ( (AEFEE E IOC OC > ED Ul 
(AffectIdentType == _float)) 
1 
1f (CurrentOp == NULL) 
{ 
elel COGS (MO <_J F 
AS CoE CI, 
EL COC (WE 
ٍ 
él E (CUEECREOS 2Z PWS) 
{ 
OIL COG (HECE E, HI 
Add_Code (51); 
Ace COGS (UNE NAW) 
} 
} 
} 
} 
CurrentOp = NULL; 
} 


e 


لننتقل إلى العملية ١الا™,‏ إذا كانت لدينا مثلا العملية 6*10, سنقوم بوضع القيمة 6 داخل 
المسجل ×ه, بعد ذلك سنجد أمامنا العملية ١الاM‏ في المتغير ,€C1 ۲۲۵٣۲0‏ ماذا نفعل؟ 
سنطرح القيمة 6 من المسجل ×۸ بإاستخدام 6,×ة لاء بعد ذلك نجري عملية الضرب... 
سيكون هذا إهدارا واضحا لوقت المعالج مع أني لم أضع وقت المعالج في الحسبان (تجاهلنا 
عملية تحسين الكود أو مله ,)0ptimisation du‏ سنغير في الكود السابق و بالتحديد في 
.CurrentOp رڙرıغتمlJ NULL allzdJl‏ 

لن نقوم بوضع القيمة الحالية أو المتفير الحالي داخل المسجل ×ه من الآن فصاعدا, بل 
سنقوم بوضعها في متغير مؤقت بإسم 9ع٤۸م ٠٠۳٣‏ الذي سيكون سلسلة حرفية تحمل إسم 
المتفير أو القيمة المشطلة لأحد أطراف العملية الحالية, بعد ذلك و إذا صادفتنا عملية جديدة 
فإننا سنجريها مع محتوى وع۸م ,٣٠ ٣‏ أما إذا لم تكن هناك أي عملية جديدة فإننا نضيف 
وempRe‏ إلى ×ه في نهاية القاعدة عة و أيضا تصفير المسجل ×ه في البداية كالآتي: 


eT 
int CurrentOp = NULL; 
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eR LENSES COG 

Lee 

affect:_er IDENT AFFECT {/*...*/Ada_Code (Imov ax, O\r\Nl);}fexpr 
{ 
if (sym_check (52) ) 


sss 
if ((sym_type==_ int) || (sym_type==_ float) ) 
{ 


WEolel Eb MOF 
Add_Code (TempReg) ; 


Add_ Code ( 
( 
Adil Code (FT, ax (ENA); 
( 
( 
( 


Add_Code ("mov "); 
Add_Code ($2); 
Add Codê ("ya EA"); 
} 
TT 
} 
} 
a 
:fع×p٣ في القاعدة‎ Cu ٣rع”۲0۲ و لنغير في الحالة اا]الN للمتغير‎ 
ET 
fexpr : REEL { 
sb 
else if (current_op == _AFFECT) 


{ 
sprintf (strtempl, "$d", (int) $1); 
if (CurrentOp == NULL) 
{ 

strcpy (TempReg, strtempl) ; 

} 
TT 

} 

CurrentOp = NULL; 

} 

| ENTIER { 

as 

else if (current_op == _AFFECT) 

{ 
sprintf (strtempl, "$d", (int) $1); 
if (CurrentOp == NULL) 


ي 
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{ 
strcpy (TempReg, strtempl) ; 


52 

} 

CurrentOp = NULL; 
} 

| IDENT { 

if (sym_check (51) ) 

{ 

a 

else if (current_op == _AFFECT) 

{ 


eT 
else if((AffectlIdentType == _int) || 


(AffectIdent Type == _float)) 
{ 
if (CurrentOp == NULL) 


{ 


St EEOy (TemoRegdy, SL) ¢; 


le 
} 
} 
} 
CurrentOp = NULL; 


} 


0s 

نعود إلى العملية 6*10, الكود الذي يحسبها هو : 
push ax‏ 
mov ax,‏ 


mov Cx, ax 


إذن النتيجة الأخيرة موجودة في المسجل ,١×‏ إذا كانت العملية لن نضيف قيمته إلى المسجل 
× إلا إذا تأكدنا أن العملية القادمة هي جمع أو طرح, أما إذا كانت قسمة أو ضرب فإننا 
سنجريها على النتيجة الحالية الموجودة في المسجل ×> و ليس على النتيجة الكلية 


الموجودة في ×عه, لذلك نضيف متغيرا جديدا بإاسم م۴۴۷0 و الذي سيحمل إما القيمةت NULL‏ 
أو قيمة العملية السابقة: 
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LT hos 
int CurrentOp = NULL; 
int PrevOp = NULL; 
Ia 
fexpr : REEL { 
oe 
else if (current_op == _AFFECT) 
{ 
sprintf (strtempl, "$d", (int) $1); 
if (CurrentOp == NULL) 
{ 
strcpy (TempReg, strtempl); 
} 
else if (CurrentOp == PLUS) 
{ 


Lf (PrevOp == MULT) 
1 
Ada _ Code (l8dAd ax, Cx EMD); 
} 
Add_ Code ("add ax, "); 
Add_Code (strtemp1l) ; 
Add_Code ("\r\n"); 
} 


else if (CurrentOp == MULT) 

{ 
if (PrevOp == MULT) 
1 
elel Cools ( IOUS el I 
ACE Cocle (MOV AX”, CENE) F 
Add Code (MOY Dx, FF; 
elel COClE (SE ECMO) f 
ACO Coole (A NE NAW) f 
AcE Cocle (UL ONE NAP) fF 
AcE Cocê ( MO CX NENW) f 
ell Cools ( OOS ANE NAF) Ff 
} 
else 
1 
elel Coole ( UOUSM ex EA) 
AAS Code ( mov ax, LD), 
Add_Code (TempReg) ; 
2l COS (E AW) f 
AMG Code (mov Ox, LL), 
Add_Code (strtempl) ; 


ي 
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ACE COS (UNE NDF 
ClO Cocle (MUL ONE MM) 
ACO COC ( MOY CX, XN ENR) f 
4C Cools (OOS NENA) f 
} 
} 
} 
PrevOp = CurrentOp; 
CurrentOp = NULL; 
} 
| ENTIER { 
as 
else if (current_op == _AFFECT) 
{ 
sprintf (strtempl, "$d", (int)5$1); 
if (CurrentOp == NULL) 
{ 
strcpy (TempReg, strtempl); 
} 
else if (CurrentOp == PLUS) 
{ 
11 (Pre VOD == MULT) 
1 
ACO Cocê (TAGG ê, CENE) f 
1 
Add_ Code ("add ax, "); 
Add_Code (strtemp1l) ; 
Add_Code ("\r\n") ; 


else if (CurrentOp == MULT) 


i1 (BrFeVOS MULL) 
1] 
AcE Code (TouER axi NAF) Ff 


Ada_ Code (mov ax, CXF); 
Add Code (MOV bx, TO; 
Add_Code (strtempl) ; 


Ada _ Code ( mil Ox EB, 
AcE COoCclEe (UMOW COX, ANEW) f 
cel Coc (USO CENE NA) 

} 

else 


{ 


( 
( 
( 
( 
ZC COE (UNE NDY 
( 
( 
( 


ي 
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Aclel Coole ( USUSM e E MM 
Add Code (FmMoOVY ax, FF, 
Add_Code (TempReg) ; 
ACO COC (E NE NA) Ff 
AE Code (mou Oxy, LO); 
4CEOl COCE (SE EEO L) f 
ell COE (ANE AW) f 
AcE Cocê (UL ONE NAM) f 
Ada Code (mov Cx AX ERD, 
elel Coole (WOO ENE NO) 
} 
} 
} 
PrevOp = CurrentOp; 
CurrentOp = NULL; 
} 
| IDENT { 
if (sym_check (51) ) 
{ 


ea 
else if (current_op == _AFFECT) 
{ 
asa 
else if((AffectldentType == _int) || 
(AffectIdent Type == _float)) 
{ 
if (CurrentOp == NULL) 
{ 
strcpy (TempReg, $1); 
} 
else if (CurrentOp == PLUS) 
{ 
i (BBE VOS 2 MUDD) 
1 
Ada Code ( SAA Ax, CX EF MD, 
} 
Add_ Code ("add ax, "); 
Add Code ($1); 
Add_Code ("\r\n") ; 
} 
else if (CurrentOp == MULT) 


0 
Lf (PrevOp == MULT) 
{ 


ي 


83 


Cel Coole ( USUSM e E MW) f 
ACEO COC (MOY ey CANE NOW) 2 
Ada Code (MOY Dx LD 

Aco COGS (SEE EEO LL) f 

Ado Code (LEN) 

ACE COME (ML Ox E NAM) £ 

2e COC ( MIO CX ENE) f 
elel Coole (OOS EN) 7 

} 

else 

1 

elel Cool (UOUSMN el E ML) 
AdA Code (MON Ax LD) 
Add_Code (S51); 

ACEO Cocle (NENA) f 

ele CoC (How loc, A) f 

Aclel COCE (SE ECMO) 7 

Ada Code (LEM), 

AcE Code (mL Oz ie NAM J) £ 
ACO COCE ( MOY CX AXN ENR) f 
AClol Coole ( OOS NE AF) 


PrevOp = CurrentOp; 
CurrentOp = NULL; 
} 

TT 


أثناء توليد كود عملية الضرب لا بد أن نجري إختبارا على المتغير ,۴۲۵۷0P‏ إذا كان محتواه 
آ MU)‏ فإن هذا يعني أننا أجرينا عملية ضرب قبل هذه العملية و عملية الضرب الحالية يجب أن 
تجري على نتيجة العملية السابقة و الموجودة في المسجل ×€, أما إذا كان محتواه غير ذلك 
فإن هذا يعني أن عملية الصرب الحالية سبقتها عملية جمع أو لاشيء و من هذا فإننا 
سنجريها على القيمة المحفوظة في المتغير المؤقت وع٤۴۸م٣۴۳٠‏ وهكذا. 


علا الآ أن كد .الى تمانة القاغدة اة ,والفكفيت الى الكوة الذى قوم فة اسا 
التخة الفوخودة قي المل 6 الى المكتر المقضو الن نكف القتهة الفخخودة قى 
وعmpRعt‏ إلى المسجل ×۸ في كل الحالات, بل فقط في حالة كون عملية الإسناد لا تحوي 
أي عمليات رياضية قي جانبها الأيمن, أي أن قيمة ۴۲۴۷0٧‏ مساوية ل ااNU:‏ 
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TT 
affect:_er IDENT AFFECT {/*...*/}fexpr { 
if (sym_check (52) ) 
{ 
E 
if ( (sym_type==_ int) || (sym_type==_ float) ) 
{ 
1f (Pre vVOoS == MULL) 
1 
Add_ Code ("add ax,"); 
Add_Code (TempReg) ; 
Add_Code ("\r\n") ; 
} 
Add_Code ("mov "); 
Add Code (52) j 
Add Codê ("ya XEXA")F 


ET 
} 
} 


1 


يقد تنقند كل فلات لقة التحمة تخت عا اسغذعاء المقاظعة 21 مع الذالة 06078 لتقا 
من لوڪ الفقامو سى تون هن رز هة ال اقح تعد لك فو عي اله هة 21 
مع الدالة 4٥0001‏ وهي مقاطعة الخروج: 


MOV ax, OCO07h ; Function OCh = "FLUSH BUFFER AND READ 
; STANDARD INPUT" 

INE 21h ; Waits for a key to be pressed. 

MOV ax, 4CO0Oh ; thé éx1t fUCtLOonN [4C#ENnO: eEFFOE (00) ] 

LEÊ 21h F CALL DOS. ANECEEUPE 2LR 


ذلك یتم علی مستوی Jlلaلأف :CODE_GEN.FH‏ 


rs 
VOid Dispose_Code () 
{ 
fprintf (fcode, ".MODEL small\r\n.stack 10O0h\r\n.DATA\r\n"); 
fprintf (fcode, "_NEWLINE_\tdb\t13,10,\"S\"\r\n"); 
( 
( 


fprintf (fcode, "_TEN_\tdw\t10\r\n"); 
fprintf (fcode, "_ZERO_\tequ\tO\r\n") ; 


ي 
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fcode, "_N_\tdb\t6 dup (0) \r\n"); 
fcode, "_ENTER_\tequ\t13\r\n"); 


FPELAET ( 

FBELQE E 

fprintf (fcode, "$s", data_section); 
fprintf (fcode, ".CODE\r\nstart :\r\n"); 
EÊ ( 

EE 

EE 


fprin Féodêe, "mov dãx&, Cdata\r\n"}; 


EEL feodle,y, "Mov dS, EXE"); 


EDELD E£COdé, TSS", COdë_SéCt Lon) j 
OER (ECONeE, LB RMOV ax, OC OVER E LN 
OE LM (COE, intl ZILANE NA) PF 

OE LD E (ECOCE, NEN IMO es, ACOORNENAW) 8 
OE LEE (COE, Fim AINE) 

fprintf (fcode, "end start\r\n"); 
ECLOSE(ECOAE 


TT 


لنجرب ما أنجزناه إلى حد الآن على هذا الألغوريتم: 


algorithme alg 
entier resultat,a; 
debut 

ecrire "Entrer a = "; 
lire a; 
resultat<-5*a+10; 
a<-resultat; 

ecrire !,"a = ",a; 
fin. 


بعد اعا ولىد المتركم ».0006۸6 و تة ستجصل على الملف 1۴57,25 تة 
لترجحمة الألغوريتم السابق الموجود في الملف واه.أئع): 


„MODEL small 

.stack 100h 

+ DATAÃ 

_ NEWLINE_ db LSA $" 
_TEN_. dw10 


__ZERO_ equ 0 
N db 6 dup (0) 
_ENTER_ equ 13 
a dw 6 dup (2?) 
resultat dw 6 dUp (2) 
_msgO_ db"Entrer a = ", "$" 
msl. QBTa 35 TTT 
CODE 
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start : 
mov ax, Gdata 
mov ds,ax 


;ecrire "Entrer a = " 
mov dx, offset _msgO0_ 
MOV -ADNy <9 

int 21h 


;lire a 
MOV CX 70 
next0: 


endû0 : 
MOV a, Cx 


;resultat <-— 
mov ax, O 
push ax 

mov ax,a 
MOV BX; 5 

MUL DX 


mov Cx,ax 


pop ax 
add ax, Cx 
add ax, 10 
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mov resultat, ax 


ja کے‎ 

MOV ãxX7,0 

add ax, resultat 

mov a,ax 

mov dx, offset _NEWLINE_ 
mov ah, 9 

LEE ZALH 


;ecrire "a = " 

mov dx, offset _Mmsgl, 
mov ah, 9 

JHE ALB 


;jecrire a 
mov dx, O0 
mov ax,a 
MOV CX, O 
lea bx,_N_ 
next1l : 
div _TEN_ 
CMP ax,__ZERO_ 
TE. êklL 
ME COREL 
ax1: 
Comp dx;Û0 
jz endl 
CORNET: 
add dx, 48 
mov [bx], dx 
iE O 
LOC bE 
mov dx, 0 
jmp nextl 
endl: 
dec bx 
DEIHELS 
mov al, [bx| 
dec bx 
mov ah, OEh 
int 10h 
loop printl 
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mov ax, OCO07h 
TE ZAL 


mov ax, 4CO0Oh 
LAE 21H 
end start 


أنسخ الكود و ألصقه في محرر برنامج كهالu†ك؟‏ mءWi”A‏ لتكون نتيجة تنفيذ الكود السابق 
کالتالي: 


o" E:WinAsm\DosExe. exe 


lne ou plusieurs pages de codes GON non valides pour ce code de clavier 
Entrer a = 2 
a 
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أما باقي العمليات من قسمة و طرح و رفع إلى أس فكلها مشابهة لما سبق إنجازه, لذلك 
نتوقف هنا في هذه المرحلة من الترحمة و في الكتاب ككل مع أني كنت أريد الوصول إلى 
توليد ملف تنفيذي للكود و لكن... لأسباب عدة أهمها أنني لا أعرف كيف أحول تعليمات لغة 
التجميع إلى لغة الآلة حاليا. 


في النهاية أرجو المعذرة للأخطاء التي و إن لم ألاحظ و جودها إلا أنها لا بد أن تكون, فالكمال 
لله, و إن كانت هناك أخطاء كارثية فأرجو منك مراسلتي لأصححها بإذن اللّه, أتتركم في رعاية 
الله و حفظه و السلام عليكم و رحمة الله وبركاته. 


لتحميل كود المترحم المنجز في هذا الكتاب إتبع أحد هذه الروابط: 
http://www.4shared.com/file/2313653/77/3f824ec0/exemples. html‏ 
http ://www.mediafire.com/?zy2eynn1qaj‏ 


http://www.snapdrive.net/files/618263/CompilerLesson/exemples.zi 
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